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FOREWORD 


Part I of this report describes a computer program ($9960) which can be 
used to predict the transient performance of vacuum-desorbed sorbent beds for 
CO 2 or water removal, and composite beds of two sorbents for simultaneous 
humidity control and CO 2 removal. The program was written primarily for silica 
gel and molecular-sieve inorganic sorbents, but can be used for a variety of 
adsorbent materials. 

The initial development of the computer program was started under the 
Apollo Applications Program, Contract NAS9-354I, NASA Manned Spacecraft Center. 
Further improvements were made through the application of AiResearch R& D 
funds, and under Contract NASI -8559 from the NASA Langley Research Center which 
also funded the acquisition of additional basic adsorption data. 

The content of Part I is as follows: Section I presents a general descrip- 

tion of the program; Section 2 describes the technical details of the program; 
Section 3 describes program usage; and Section 4 presents an example of program 
usage; Subroutine documentation is given in Section 5, together with a complete 
listing of the program. 

Part II of this report describes a computer program (MAIN4B) which can be 
used to predict performance for multiple-bed CC> 2 -removal sorbent systems. This 
program is an expanded version of the composite-sorbent-bed program, S9960, 
described in Part I. 

The primary improvement included in MAIN4B is that the poisoning effect 
of water coadsorbed by the C02~removal bed is taken into account in predicting 
the CO 2 adsorption performance of the bed. The program also estimates coad- 
sorption of oxygen, nitrogen, and subsequent overboard losses. The system 
simulation capabilities have been expanded to allow consideration of 

• 2-bed vacuum-dump, 

• 4-bed h^O-save/CC^-dump, and 

• 4-bed h^O-CC^-save type systems. 

• Beds may be thermally conditioned by heat-transport fluid passages 
within the bed, or by internal electrical heaters. 

Although certain features of MAIN4B are completely new, or are consider- 
ably different from those incorporated in program S9960, much of the back- 
ground material presented in Part I is used in the new program. Part II pre- 
sents only material unique to MAIN4B. The complete documentation of the new 
program, for those interested in the techniques used in the program, or for 
those desiring to modify the program set, includes both Part I and Part II. 

Nomenclature used in this report is presented at the beginning of each 
part. The content of Part II i s as follows. Section I provides a general 
description of the program; Section 2 technically describes new features of 
MAIN4B that make it different than S9960; Section 3 describes input data for 
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FOREWORD (Cont) 

program execution; and Section 4 presents two example runs with the program. 
Two appendixes furnish subprogram documentation (Appendix A) and a complete 
listing of the program (Appendix B). 

Dr. K.C. Hwang of AiResearch, developed the computer programs described 
in this report, and also authored the report. 

Mr. Rex Martin of NASA Langley Research. Center was the technical monitor 
of Contract NASI -8559 during the development of these computer programs. 
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NOMENCLATURE 


FORTRAN A1 qebrai c ' Descr ipt ion 


A 



Quant i ty 




appearing in Equation (2-35), 
( 1 b-mol e )/ ( hr ) ( sq ft)(mm Hg) 


ADT 



Temporary storage for DT, hr 

ADT2 



temporary storage for DT, hr 

ABED 

A 


Cross-sect iona) area of adsorbent bed, sq ft 

AGS ,ASG 

a 

sg 


External surface area of sorbent, sq ft/(cu ft of bed) 

AGX,AXG 

a 

xg 


Primary heat transfer area between heat exchanger and 
gas stream, sq ft/cu ft of sorbent bed 

ASX, AXS 

a 

xs 


Primary heat transfer area between heat exchanger and 
sorbent, identical to a 

xg '• 

AVC 

a 

VC 


Primary heat transfer area for coolant, sq ft/(cu ft 
of coolant volume) 

AVLD 



Average loading at each axial node, ( I b-sorbate )/( I b- 
sorbent) 

AVH20P 



Average poisoning rate of molecular sieves by H~0, 
(lb-H 2 0)/hr i 

AVMSlD 



Average CO^-loading of all active molecular sieve sor- 
bents, 1 b-CO^/X 1 b-mol ecu 1 ar sieves) 

AVPH20 



Average outlet P 0 , mm Hg 

AVRC02 



Average CO^ adsorption or desorption rate, lb-CO^/hr 

AVRH20 



Average H 2 0 adsorption or desorption rate, lb-H 2 0/hr 

AVSGLD 



Average H 2 0-loading of desiccant sorbents, lb-H 2 0/(lb- 
desiccant) 

AVX 

a 

vx 


Primary heat transfer area for heat exchanger, sq ft 
plate area/(cu ft of metal) 

B 



Temporary, var iab) e used in simultaneous solution of a 


system of finite di fference equations. See Equations 
(2-41) and (2-42) 


■' 72-8786 
Page 3 


AIRESEARCH MANUFACTURING COMPANY 

Los Angeles. California 



NASA CR-I I 2098 


FORTRAN 

C 

CPC 

CPG 

CPS 

CPX 

CPI 

CP2 

CRI 

CR2 

CR3 

CSI 

CS2 

CYCLE 

C I 

C2 

C3 

CIP 

C2P 

C3P 

DH 

DIF 



Al qebra i c 
C 
C 

pc 

C 

P9 

C 

ps 

C 

px 



Description 

Molal density of gas mixture, lb moles/(cu ft) 

Heat capacity of coolant, Btu/(°F)(lb) 

Heat capacity of gas mixture, Btu/(°F)(lb) 

Sorbent specific heat, Btu/(lb)(°F) 

Heat capacity of heat exchanger metal, Btu/(°F)(lb) 
Coefficients in equation 


PC3 


ks 


t+At 


X. P. # 1 = CPI + CP2 • P „ 
k t+At / t+At 


Coefficients in following equation which is merely 
another form of Equation (2-28). 


k, (M- I ) (t+At) 


CRI • = CR2 • (w 

W k,M, (t+At) + CR3 ' W k,M,(t+At) " W k, (M+l ),(t+At)) 
Coefficients in equation 


T - T t 

S ( t+A t ) 


DS + CSI 


P ( t+At ) " CS2 ' P ks , ( t+At ) 


Cycle time per one adsorption or one desorption half- 
cycle, hr 

Coefficients in equation 

C l W ( t+At )., (M- I ) + 02 ’ W ( t+A t ) ,M +C3 W (t+At),(M+l ) 

= D I 

Coefficients in equation 

CIP P ft+At),(N-l) + C2P ’ P ( t+At ) ; N 
+ C3P ' P (t,At),(N + D = 0IP 

Heat of adsorption at each node Btu/(lb adsorbed) 

Hass diffusivity of component k through the interior 
of sorbent, sq ft/hr 
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FORTRAN 

A) qebra i c 

Descript ion 

DPC02C 


Cabin CO^ partial pressure increase in one time 
increment, mm Hg 

DS 


See CSI 

DT0 


Time increment of previous computation step, hr 

DT 

At 

Time increment, hr 

DTMAX 


Maximum allowable time step, size, usually 0.01 hr for 
isothermal analysis and 0.005 hr for non i sothermal 
ana lysis 

DVS 


Size of interior sorbent volume elements, (cu ft) 

DVSI 


Size of sorbent volume elements at surface and center 
of spherical pellets, DVSI = 1/2 DVS, (cu ft) 

DX 


Axial node dimension, ft 

D 1 


See C 1 

DIP 


See C IP 

D2 


Coefficient in equation W, = Q + D2 • P/. .x 

ks (t+At) (t+At) 

D9 


DT in single precision, hr 

F 

F 

Factor defined by Equat ion ( 2- 1 7) , a function of pressure 

FR 


Molal flow rates of CO,, and H^O, during desorption, 
FR ( 1 , N ) is CC >2 rate, FR(2,N) is H^O rate, Ib-mole/hr 


G 

Mass flux = u^ • p , lb/(hr)(sq ft void area) 

GK 

K 

Mdss transfer coefficient between bulk stream and the 


g 

surface of adsorbent. Surface kinetic rate can be 
incorporated in this coefficient, 1 b-moles/(hr) (sq ft) 
(mm Hg) 

GMR 

G t 

Total mass flow rate, lb/('hr) 

GMW 

M 

g 

Average molecular weight of process gas 

HCX,HXC 

h 

xc 

Heat transfer coefficient between heat exchanger primary 
plate and coolant, Btu/(sq ft)(°F)(hr) 
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FORTRAN 
HGS, HSG 

HSX,HXS 

M 

sg 

M 

s 

NBC0UT 

NCYCLE 

NCYCLT 

NDR4 

NDTC0N 

NDXM 

NDXMAC 

NDX I 

N0G 

NPR 

NPRINT 

NPSET 


A1 qebra i c 


Descript i on 


h 

sg 


Heat transfer coefficient between sorbent and gas, 
based on a , Btu/(sq ft)(°F)(hr) 

Effective heat transfer coefficient between heat 
exchanger primary plate and sorbent, Btu/(sq ft)(°F) 
(hr) 

Moial rate of mass transfer into bulk gas stream/unit 
bed volume, lb-moles per (cu ft of bed)(hr); see 
Equation (2-15) 


Interior node corresponding to the surface of pellet 


Integer control variable, if NB0UT - 2, the outlet 
manifold pressure is specified as a function of time; 
NB0UT = I, the manifold pressure is computed from 
vacuum duct resistance 


Number of complete adsorption-desorption cycles from 
beginning of run 

Total number of complete adsorption-desorption cycle 
calculations desired 

Integer denoting total number of radial sorbent pellet 
nodes (interior nodes) 

If = I, internal At calculations. If = 2, fixed At's 
in program will be used. 

Integer denoting total number of molecular sieve nodes 

Integer denoting number of active molecular sieve nodes, 
i.e., (NDXM-NDXMAX) represents the number of molecular 
sieve nodes which have been inactivated by water 
po i son i ng 

Integer denoting total number of axial nodes 
Node to which coolant is added 


Number of time steps elapsed since last printout 

Integer control variable which determines the frequency 
of printout occurrence; e.g., if NPRINT = 5, printout 
occurs after every five time steps 

Integers which denote the nodes to which tabulated 
vacuum history is applicable 
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FORTRAN Algebraic 
NSTART 

NTEMP 


PA 

PC02C 

PC02I 

PCI 

PC2 

PC3 


Description 

Integer denoting the cycle from which on bed performance 
will be printed at frequency specified by NPRINT 

Integer control variable; If NTEMP = 0, the energy 
equations will be ignored and bed temperatures set 
equal to T268 ; If NTEMP 7 ^ 0, heat balances will be 
performed 

System total pressure during adsorption, mm Hg 
CO^ partial pressure in cabin, mm Hg 
CO^ partial pressure at adsorption bed inlet, mm Hg 
Coefficients in equation for desorption pressure 

P ( t+A t ) , N P t,N = pc , . P (t+At) , (N- I )~ 2 P (t+At),N +P (t+At) , (N+l ) 


(At) 


(a x V 


PH20I 

PK Pk 

P 0 UT 

PT P 

PI 

P2 

P3 

Q 


, pr2 • - ( t+At) , (N+l 1 (t+At) , (N- I ) 

2 (ax) 

+ PC3 • [ P k s(t +A t) ' X k P (t +A t)3 

Inlet H^O partial pressure, mm Hg 

P • X ; partial pressure of component k in bulk gas 

K 

stream, mm Hg 

10 tabulated desorption outlet pressures at TIMET, 
mm Hg 

Total pressure in bulk gas stream, mm Hg 
Coefficients in equation 


ks 


(t+At) 


= PI + P2 • (W . ' . . - W . . ) + P3 • 

k,s(t+At) k, s , t 7 


Temporary variable like B. See Equat i ons ( 2-43) and (2-44) 
Radial distance from center of sphere, ft 
r at interior node M, ft 
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FORTRAN 

A Iqebra ic 

Description 


r 

s . 

Average particle radius found from P , and 
a ft Sb 

sg. 

RC02C 


Rate of C0 2 generation in cabin, lb CO^ per 

RGAS 

R 

Gas constant, 554 (mm Hg) (cu f t ) / ( 1 b-mo 1 e) 
(°R) 

RH0C 

P c 

Coolant density, lb/(cu ft) 

RH0G 

P 9 

Gas density, lb/(cu ft) 

RH0S 

p s 

Sorbent density, lb/(cu ft particle) 

RH0SB 

p sb 

Sorbent bulk density, lb/ (cu ft bed volume) 

RH0X 

P x 

HX core metal density, !b/(cu ft) 

RS 

r s 

Average particle radius found from P ^ and 
a , f t 

sg 

RSI 


Radius of spherical surface separating two 
interior sorbent volume elements, ft 

SK 

k 

s 

Effective thermal conductivity of sorbent 
bed, Btu/(hr) (sq ft) (°F/ft) 

SUMPTM 


t 

Quantity E P outlet '(At ) , (mm) (hr) 



t = zero 

TC 

T 

c 

Coolant temperature, °F 

TCI 


Coolant temperature at time, t-At 

TC2 


Coolant temperature at time, t-2At 

TG 

T 

9 

Gas temperature, °F 

TGI 

T . 
9' 

Inlet gas temperature for adsorption cycle, 


AIRESEARCH MANUFACTURING COMPANY 

Los Angeles. California 


72-8786 
Page 8 




NASA CR-I I 2098 


FORTRAN 

TI 

TIME 

TIMEM 

TIMET 

TKX 

T0TC02 

T0TH20 

TS 

TSI 

TS2 

TX 

TXI 


A I qebra i c 


t 


k 


x 


T 

s 


T 

x 


Desc r i pt ion 

Maximum temperature change allowable per time 
increment in selecting At, °F 

Time from beginning of each adorption or 
desorption period, hr 

Time above in minutes. 

10 times at which P0UT are tabulated, hr 

Thermal conductivity of heat exchanger core 
metal, Btu/(hr) (sq ft) (°F/ft) 

Total amount of C0^ adsorbed since beginning 
of adsorption period, lb 

Total amount of H^O adsorbed since beginning 
of adsorption period, lb 

Sorbent temperature, °F 

Sorbent temperature at time t-(At), °F 
Sorbent temperature at time t-2(At), °F 
Heat exchanger core metal temperature, °F 

Heat exchanger core metal temperature at time 
t-(At), °F ~ 


TX2 

T268 

UC 

UG 

VMS 


Heat exchanger core metal temperature at 
time t-2(At), °F 

T Inlet glycol temperature, °F 

268 

u Coolant velocity, ft/hr 

c 7 

u Interstitial gas velocity, i,e., true gas 

^ ve loc i ty, ft/hr 

Total bulk volume of molecular sieve 
sorbents, cu ft 
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FORTRAN A 1 gebra i c 


Desc r i pt i on 


V0IDF 

r 

V0LCAB 

VS 
VSG 
W 

WI 

WM 
WS 

WTACMS 

WTMS 
WTSG 
X x k 

x 

Y 


w k 

W d ( p) 


Void fraction of bed 


Cabin volume for atmosphere, cu ft; use 
20 

V0LCA8 =10 , for constant PC02C 

Volume of a single sorbent pellet, cu ft 

Total bulk volume of desiccants, cu ft 

Loca 1 loading of component k in sorbent, 
lb sorbate k/lb sorbent 

A function of pressure which represents the 
capacity of vacuum duct at duct inlet pressure 
of P mm, Ib/hr 

Maximum loading change allowable per time 
increment in selecting At, 1 b/ 1 b 

Molecular weight of component K. K = I and 2 

Temporary storage variable for W 

Total weight of active molecular 
s ieve sorbents , 1 b 

Total weight of molecular sieve sorbents, lb 

Total weight of desiccants, lb 

Mole fraction of component k in gas stream 

k=l refers to CO^ in molecular sieve bed gas stream, 

and K=2 refers to F^O in desiccant bed gas stream 

Distance from molecular sieve bed end, ft 

Any of bed properties, T , T , W,, T , T 

s x k c g 


Subscr i pts 
b Bui k 

c Coolant 

g Gas stream 
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Subscr i pts 
i Inlet 

k Component k 

H Radial location index for sorbent interior nodes 

N Axial location index 

s Surface of sorbent 

s Sorbent 

t A t t i me t 

v Vo 1 ume 

x Heat exchanger 

Superscr i pts 

# Equilibrium quantity 
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SECTION I 

GENERAL DESCRIPTION 


INTRODUCTION 

The present computer program package for the Univac 1108 computer, S9960 
through S9999, was developed to predict the transient performance of a composite 
molecular sieve/desiccant bed for C0^ removal, which may be operated under 
either adiabatic or thermal swing conditions. The program is limited to cases 
where sorbents are regenerated by dumping to vacuum. 

An attempt was made to solve the actual physical problem as rigorously 
and generally as was feasible. Thus, transient pressure variations during 
a desorption cycle are not arbitrarily set, but are calculated from the 
AiResearch test data (as shown here) for the flow of nitrogen gas under low 
pressures through a 5/8-in. -ID molecular sieve bed. For program flexibility, 
most of the physical properties and transfer rate constants are allowed to vary 
as a function of the bed location. Such a flexibility allows for the use of 
different heat exchanger configurations and different modes of operation for 
the molecular sieve bed and the desiccant bed. 

The program does not assume, any specific heat exchanger configuration 
for thermal control and is, therefore, applicable to cases where sorbent 
temperatures are regulated by cooling coils, plate-fin heat exchangers or 
process gas streams alone, and so forth. However, to implement this general 
approach, heat transfer coefficients for heat balance calculations are not 
computed in the program but must be supplied as input data. 

The mass-transfer equations are written to permit both intraparticle 
diffusion and surface resistance. Either process can be made to control by 
proper choice of the appropriate coefficients in the input. 

To minimize the running time of the program, an implicit scheme as pro- 
posed by Hwang (Reference |) was employed for transient mass transfer calculation 
and a method somewhat similar to the one proposed by DuFort and Frankel 
(Reference 2) for solving a diffusion equation was used to handle the coupling 
terms of the energy equations for the transient temperature changes of the 
metal parts, the sorbent,' and the coolant. The program, therefore, permits 
the use of allowable large time increments for accuracy considerations. 

Program S9960 performs adsorption and desorption calculations for a 
specified number of complete cycles. Programs S9950 and S995I perform adsorption 
and desorption calculations, respectively, for one-half cycle only. With all 
physical properties and operation parameters inputted through two block data 
subprograms, the programs will compute and print out temperature and bed 
loading changes as a function of time. Average bed loadings and average rates 
of adsorption and desorption are also printed. 
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MATHEMATICAL MODEL 

An example of a sorbent bed for CO^-removal is depicted in Figure |-|. 

The unit shows the detail of construction. It is basically a platefin gas- 
liquid heat exchanger with sorbents packed between the fins in the gas side. 

In the present program, bed properties are assumed to vary only in the 
direction of the process gas flow, and that coolant is either parallel or 
counter-current but cannot be cross flow to the gas flow. Electric analogs 
of the heat transfer in the idealized sorbent bed during adsorption and 
desorption are shown in Figures 1-2 and 1-3. Figures 1-4 and 1-5 show electric 
analogs for mass transfer processes involved in the bed during the adsorption 
and desorption periods, res pec t i ve 1 y . Although a plate-fin heat exchanger is 
shown in Figure f — I , the analogs of Figures 1-2 through 1-5 should still be 
valid for cases where other means of thermal control are used. 

The resistances to thermal transfer in Figures 1-2 and 1-3 can be easily 
estimated from thermal conduc t i v i t i es of materials used. The mass transfer 
resistances in Figures 1-4 and 1-5, however, must be determined from actual 
bed performance data. 

Although heat and mass transfer processes are shown separately, a coupling 
does exist between the two. In Figure 1-2 the "I's" represent the rates of 
heat generation at various nodes due to various rates of sorbate adsorption by 
these nodes, which are the mass transfer rates across the sorbent surface 
resistances shown in Figure 1-4. Similarly the "I's" in Figure 1-3 are coupled 
with the mass transfer rates in Figure 1-5. 

PROGRAM CAPABILITIES 

Uses 


Program S9950 predicts the performance of a single adsorption period. 

It is used for analyzing a breakthrough curve that is obtained from a known 
initial bed conditions, such as an adsorption run which is made immediately 
after a bakeout. By a few tr ia 1 -and-error runs of this program, the mass 
transfer coefficient and mass diffus'ivity for the test system can be found. 

Program S 99 5 1 predicts the performance of a single vacuum desorption 
period. It is used to determine mass transport properties of a sorbent-sorbate 
system if a desorption run started from known initial conditions is available. 

Program S9960 is designed to predict the performance of a cyclically 
regenerated adsorption-desorption system comprising a desiccant and a CO^ 

sorbent bed. Although the program is not designed for bed-sizing, no more 
than three trials are usually required to zero in on a correct design to meet 
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Figure 1-1. Typical Adsorbent Canister 
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Figure 1-2. Thermal Network for Sorbent Bed During Adsorption 
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Figure 1-4. Mass Transfer Model for Sorbent Bed During Adsorption 





Figure 1-5. Mass Transfer Model for Sorbent Bed During Vacuum Desorption 
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specified performance requ i rements , if operating parameters are given. To 
optimize an entire vacuum-dump CO^-remova] system, the program can be used 

to generate curves showing the effects on total system weight of various 
parameters such as the process gas flow rate, bed size, coolant rate, and so 
forth. An optimum system can be easily found from that set of curves. 

The program permits use of variable bed properties along the flow passage, 
and therefore, can be used for radial beds or beds of any arbitrary geometric 
configurations. 

Input 

The input to S9960 is by means of two BLOCK DATA subprograms, one for the 
adsorption period and the other for the desorption period computations. When 
running S9950 or S995I , only one pertinent BLOCK DATA subprogram is required. 

In addition to the two block data subprograms, subprogram S9992 (PKEQ.), 
which computes equilibrium vapor pressures of H^O over the desiccant and C0^ 

over the molecular sieve sorbent employed in the system, must be compiled with 
each run. 

Output 

Output from S9960 is the printed page. The output gives bed sizes, 
temperatures, sorbate loadings, partial pressures of C0^ and H^O during 

adsorption, total pressures during desorption, and average adsorption and 
desorption rates. Except at the end of each half cycle, the printout of bed 
properties will not appear until a number of adsorpt i on-desorpt i on cycles 
as specified by the input has been performed. The frequency of printout is 
also specified by the input. 

Program Options 

Various options available are summarized as follows: 

• Use of S9950 for one half-cycle adsorption calculations 

• Use of S995I for one half-cycle desorption calculations 

• Isothermal operation with the bed temperature specified 

• Non- i sotherma 1 operation with the inlet coolant temperature specified 

• Bed outlet pressure history during desorption inputted 

• Bed outlet pressures computed from vacuum duct characteristics 
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• Bed cross-sectional areas vary in the axial direction 

• Allowance of some inert nodes in the bed to simulate the case of 
partially poisoned bed 

• Multi-outlet desorption with pressure history specified at up to 
three axial nodes 
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SECTION 2 

TECHNICAL DESCRIPTION 


GENERAL ASSUMPTIONS 


In addition to some minor approximations that are presented under the 
derivation of equations, the following general assumptions were made in 
deriving the differential equations which were employed in the present program. 


Assumpt i on 
A 

6 


C 

D 

E 

F 


Descr i pt ion 


Temperature gradient in the pellet interior 
is negl igible. 

Adsorption occurs by the diffusion of an 
adsorbate through the stagnant surface film 
at the exterior surface of an adsorbent particle 
condensing at the surface and then diffusion 
into the interior of the particle. Desorption 
occurs in a reverse fashion. 

Adsorbent pellets can be represented by spherical 
particles for mass transfer ca leu lat ions . 

Heats of adsorption and desorption do not depend 
on temperature or concentration. 

In the adsorption half cycle, the total flow 
rate and density of the gas stream are constant. 

Bed properties do not vary in the direction 
perpendicular to the direction of the gas flow. 


DIFFERENTIAL MODEL 


Only those equations that are not obvious will be given their derivations 
here. The equations which are assumed to be obvious or easily derived by the 
reader are listed with appropriate boundary conditions without proof. Initial 
conditions of the equations are omitted, since they should be apparent. 


Diffusion Equation for Interior of Sorbent Pellet 


SW, 

k 

at 



i_ s_ 

2 Sr 


r 



aw. 

k 

Sr 


( 2 - 1 ) 
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Boundary conditions are 


SW, 

-r — = 0 at r = 0 
dr 

SW 

■ -fs D k — = M k K 9 (\- P •. X k) at r - r s 

Energy Equation for Gas Stream 

As the thermal capacitance of the gas in the void space of a sorbent bed 
is neg 1 i g i b I e compared with that of the sorbent bed or the heat exchanger core, 
a quas i -steady-state assumption can be made and the following is obtained, as 
energy equation for the gas stream, 


( 2 - 2 ) 

(2-3) 






(T -T ) + 

s g 


a 

xg 




(2-4) 


Equation (2-4) is subject to a boundary condition 

Tg = . at x = x q (i.e., process gas inlet) (2-5) 

for the adsorption half cycle, while for the desorpt i on half cycle, the condi- 
tion to be satisfied is 

T = T at x = 0 (2-6) 

g s ' ' 


Energy Equation for Sorbent 



( V T . )+ \c 


xs xs 


This equation is subject to the conditions 
= 0 at x = 0 


dx 

ST 


— = 0 at x = x 
Sx o 


ps sb 


P . / ( w 


(2-7) 


( 2 - 8 ) 
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Energy Equation for Coolant Stream 

a • h \ 

VC XC | ^ 


c c 

^ = -u rr + 

ot c ox 


C - p 
^ pc r c 


X c 


The boundary condition for this equation is 

T = T„ /a at x = x . ^ , 

c 268 coolant inlet 

Energy Equation for Heat Exchanger Core Metal 

3T 


^ c px ' p x } at 


= |- (k + a - [h (T -T ) 

ax l x d I vx xs s x 

+ h (T -T ) + h (T -T }] 
xg g x xc c xj 


Boundary conditions for this equation are 
ST 

-r— : - = 0 at x = 0 and x = x 
6x o 


(2-9) 


( 2 - 10 ) 


( 2 - 11 ) 


( 2 - 12 ) 


Adsorption Material Balance Equation for k-th Component in Gas Stream 

By neglecting axial diffusion and assuming that quasi-steady-state con- 
ditions exist for the gas phase material balance, the following is obtained. 


dx 


M 


sg 


Ks-V 


(2-13) 


This has an inlet condition 

p k * p k, inlet st * = x o 
Pressure Equation for Desorption 

During the desorption cycle, both 
vary with time and the axial location 
instantaneous pressures at various bed 
steady-state assumption could be made 
simplified problem obtained would stil 
quires an iterative method of solution 
solve a transient equation describing 
was taken in the present program, and 
employed in the program is given below 


the bed pressure 
in the bed, and a 
locations is des i 
regarding pressure 
1 be a boundary va 
An alternative 
pressure changes, 
the derivation of 


(2-14) 


and gas flow rate 
method of calculating 
red. Although a quasi 
calculations, the 
ue problem that re- 
approach would be to 
The latter approach 
the pressure-equation 
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A material balance for a unit volume of bed gives 

a 


where 


Af 

M 


= a 
sg sg 


dx 

K 


(f 


C • A 


u ) + A 
9 


( Pks- P ‘ V 


M 


sg 


(2-15) 

(2-16) 


and is related to pressure gradient by 

i /ap> 

u g ~ " f 


(2-17) 


Also, by differentiating the perfect gas law 
P 


C = 


RT 


(2-18) 


one obtains 


SC 

St 


I 

RT 


ST 


RT 


2 St 


(2-19) 


By combining Equations (2-17), (2-18), and (2-19), and dropping the term 
„ /ST 


RT 


.St 


—I , Equation (2-15) can be converted to Equation (2-20) in a quasi- 


isothermal condition: 


SP 

St 


P /s 2 p' 

F W> 


+ 


• a 


A Sx 


/a • f • c\ / ap\ 
\ f / Isxi 


M 


C • f sg 


( 2 - 20 ) 


Equation (2-20) is used in the program for calculating pressure changes 
during the desorption half cycle. 

The proportionality constant F in Equation (2-17) is a strong function 
of pressure, as the gas flow during desorption lies in the slip flow region. 
The pressure drop data for the flow of nitrogen gas through a 5/8-in. -ID 
molecular sieve bed were reduced by using the equation 


f m g.r.t 
n 2 g 

M 


( p ? ~ p j) 

2 U 2 -x ! ) 


( 2-21 


to obtain at various mean pressures. The result is plotted in Figure 2-1 


and a best straight line fit of the data gives 



AIRESEARCH MANUFACTURING COMPANY 

Los Angeles. California 


72-8786 
Page 26 



NASA CR-I I 2098 



Figure 2-1. Correlation of F^ vs (— ) From Test Data 
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F = 2.494 x I0" 4 x P 0,795 (2-22) 

N 2 

Equation (2-22) is applicable only for nitrogen gas at 70°F, which has a 
viscosity of 0.0174 cp. In the . desorpt ion program, F is linearly corrected 
for the difference in viscosity as predicted by the Biake-Kozeny equation. 

Thus F „ ( Av g ,oi»° Sity ) ' 2 ' 494 ' l0 ' 4 • P °' 795 (2-23) 

For the gas mixtures in the desiccant bed section, molal average viscosi- 
ties were used in the program. 

Equation (2-20) is subject to a boundary condition 

= 0 at x = 0 (2-24) 

At the bed exit, the pressure can be specified as a function of time, or 
else the vacuum duct resistance to gas flow will play a role in fixing the 
pressure and flow rate. The boundary condition will then be 

f • P g • Ug • A = W D (P) (2-25) 

where Wp(P) can be approximated by the following expression which corresponds 

to the straight line shown in Figure 2-2 for a 3-in. duct for the AAP vacuum 
duct . 

W D (P) =11.2 P 1,715 (2-26) 


The dotted lines in Figure 2-2 were the estimated flow rates for I 8 i n. long 
ducts. The resistance contributed by the gas valve were not included in these 
ca 1 cu I at i ons . 


Combination of Equations (2-17), (2-25), and (2-26) yields 

(2-27) 

In addition to the equations listed above, an equilibrium relationship 
between vapor pressure, temperature, and sorbate loading is needed for each 
sorbate-sorbent combination. The relationship can be in equation or tabular 
form. 


6P 

FSx 


I I .2 P 


0.715' 
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FINITE DIFFERENCE MODEL 


The foregoing differential equations were solved in the program, using 
the following finite-difference approximations. 

Diffusion Equation for Interior of Sorbent Pellet 

For accuracy, the sorbent is divided into constant volume elements rather 
than into ones with constant (Ar). Equation (2-1 ) can then be approximated by 


(AV)p, 


[ W k,M,(t+At) ‘ W M,k,t] 

( 4 ” ' r M- 1/2) 

TaT) J - P s D k 

<VW 


(2-28) 


(w 


. - W 

(M-l)(t+At) M, ( t+At ) , 


\ ( 4 " r M + l/ 2 ). 


(r M +l ' V 


(V 


- w, 


( t+At ) (M+l ) ( t+At 


Half nodes are used at the center and the surface of spherical pellets, 
and Equation (2-28), with boundary conditions (2-2) and (2-3) super imposed 
becomes respectively 


(A V) 

2 


W k,l(t+At) ^k, I (t+At) _ ^s^k 


p D, I 4rrr 


( 4 nr 1-1/2) 


and 


(AV) 

2 


W) 

[ W k,l,(t+At) " W k, 2 , ( t+At ) J 
W k,s,(t+A) " W k,s,t _ _ 


(T^oT 


(2-29) 


D K ( 4 " - ,/a) 


TaTT 


r — r y . 
s M - 1 
s 


(2-30) 


[ W k,(M s -l ),(t+At) W k J ,M s ( t+At )J 
- A s • \ ' K g • (»ks - p • x k) 


(t+At) 
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Energy Equation for Gas Stream 

Equation (2-4) is approximated by 


T - T 

9 (n+i). 9 (n) 

("Axl 


f • p • c 

g P9 9 


fa • h -It 

* u g [ sg sg I s 


(n+i ) 


(2-31) 


T g(N+l)j + a xg h xg ( T x(N+l ) ' T g(N+l )jj 


for 


u > 0 
9 


For the case u^ < 0., which is the case during adsorption, the index (N+I ) will 
be replaced by (N-l). 

Energy Equation for Sorbent 

The following finite difference representation for Equation (2-7) is used 
in the program. 


T - T 

2 • (At) 


S ( t+At ) ,N S ( t - At ) , N 


V P sb • M A N L (N+l/2) 


(2-32) 


A (N+l/2) ' ( 


T - T \- k 

(t+At), (N+I) S (t+At),N)/ S (N- 1/2) 


‘(N-l/2) 


-T 


S ( t+A t ) , N 5 ( t+At ) , (N- I )/J 


a • h ' 

-H r - S9 n 59 • T 

ps P sb/ N ^ 


t,N 


+ T 

S ( t+At ) , N S ( t- At ) ,N 


2 

+ T 


’ ( t+At ) , N ( t-At ) ,N 


f 

a 

xs 

h \ 

xs \ 

C 

V P s 

H 

/a 

■ K 

. / s 9 

9 


't,N 


y^ps P sb/N 


ks , 


'( t+At ) , N ( t+At ) , N 


<V 
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Energy Equation for Coolant Stream - 

The program uses the finite-difference analog to Equation (2-9) 

T - T T - T 

C ( t+At ) , N C (t-At ) ,N C (t+At ) ,N C ( t+At ) , ( N- I ) , 

2( At ) = “ u c ■ — “ TK x) (2 ' 33) 


fa • h \ 

VC xc l 

C • P / 

^ pc c / N 


T + T 

T - C ( t+At ) ,N C ( t - At ) , N 
t,N 2 


Energy Equation for Heat-Exchanger Core Metal 

T - T 

(C . p ) X ( t+At ) , N X (t-At),N _ I . 


px x 


2 • (At) 


(Ax) 


2 


( T * 


( t+At), (N+l ) 


X ( t+At ) , n) 


X (N+l/2) 

(t 


(2-34) 


(N- 1/2) V (t+At), N 


-T 


'( t+At ) , (N- I ) 


+ a • h 
vx xs 


( T + T 

) T ' X ( t+At ) ,N X ( t - At ) , N j 

1 + h .j 

V " 2 I 

1 xg / 

V J 


't,N 


T T 

,X ( t+At ) , N + X (t-At),N 


T + T 

X ( t+At ) , N X ( t - A t ) , N 

2 


+ h • <T 
XC I c 


t,N 


Adsorption Material Balance for K-th Component in Gas Stream 
Equation (2-13) is approximated by 


' Pl 


(N- I ) *(N) 


P • H 


^ = V f ■ Pg ■ .%/' a = 9 ' k g ' ( P ks (N _ 0 - (N .|) 


) ( 2- 
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Pressure Equations for Desorption 

Equation (2-20) is represented by 

P 

t,N 

W7 


P ( t+At ) ,N " P t,N 




2 [_ r ( t+At ),(N- I ) " 2P (t+At),N 


1 1 N 


(Ax) 


(2-36) 


+ P 


(t+At), (N+l )] 


C A /t,N 2 ( Ax ) 2 


A • f • C 


A • f • C 


t > N 


t,(N-l )J 


[ P (t+At),(N+l )‘ P (t+At),(N-l )] 


+ 




a • K 

sg g 


ks 


( t+At }, N 


P ( t+At ) , N ' X k 


t,Nj 


form 


The boundary condition expressed by Equation (2-27) can be put in the 


P ( NDX I + I ) “ P NDXI 

F •' (Ax) 


.2 P 


0.715' 


f ■ P, 


NDX J 


. 2 - 37 ) 


NDX I 


METHOD OF SOLUTION 


Most of the finite difference schemes described above are of the implicit 
form and require a special method of solution, which is described below. 

The system of finite difference equations describing bed property changes 
for all nodes can be written in the form (Reference 3) 


C 2 . Y I , ( t+At ) + C 3. Y 2,(t+At) " °| 


(2-38) 


C I n Y ( n ~ | ),( t+At) + C 2 N Y N,(t+At) + C 3 n Y ( N+ I ), ( t+At) °N 


Y, 


= D. 


I N D X ! Y ( NDX I - I ), (t+At ) + C 2 NDX| '(NDXl),(t+At) _ ^NDXI 


(2-39) 

(2-40) 


The matrix of this linear system is tridiagonal and the following formulae 
which were first presented by Thomas, 2 are used for its solution: 


B. = 


(2-41 ) 
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(2-42) 


(2-43) 


(V- c i >-i) 

% ° |b n - c,”b n _^ ■ < N - 2 - + HDXI > < 2 -“) 

Y NDXI = ^NDX I (2-45) 

y n = % ~ B n Y [N = (NDXI-I), (NDXI-2); (2-46) 


Bn = 


N 




C 2 ' C I B N- 
^N 1 N 


(N = 2, 3, .... NDX I ) 


«l = c- 


It should be noted that the index N appearing in the above equations can 
be replaced by index M for solving the interior diffusion Equation (2-28) 
with its boundary conditions. 

Equation (2-35) for the adsorption period and Equation (2-36) for the 
desorption period are coupled with Equations (2-30 ) and (2-32) and a special 
method is needed, which is described below for the desorption period first 
because this is the more involved of the two cases. 


Equilibrium surface vapor pressure at the end of a time step is approxi- 
mated by 


P k, s , ( t+At ) 


P k,s,t + ^k,s,(t+At) 




+ ^s,(t+At) T s 




T 

s 


(2-47) 


The new surface loading can be expressed as a function of the gas phase 
pressure: 


W k,s,(t+At) % + °2 


(t+At) 


(2-48) 


where Q g is the Q as expressed by Equation (2-44) for the pellet interior 
diffusion, with the term containing excluded from it. 
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Sorbent temperature change in one time step during the desorption period 
i s wr i tten as : 

T s , ( t+At ) ' T s,t = D s + C sl ' P ( t+At ) ' C s2 ' P k,s(t+At) (2 " 49) 

Substituting Equations (2-48) and (2-49) into Equation (2-47), the 
following is obtained 

»M,(t + At) - p | + p 2 [% - “M, t ] + [ P 2 ' °2 + p 3 ] • P ( t+At ) (2 - 50) 
where P I (2-5 1 ) 



(2-52) 


(2-53) 


Now, Equation (2-36) can be rewritten as follows, where N designates the 
N-th axial node counted from the furthest end from the vacuum duct connection: 


P N , ( t+At ) ' P N,(t) 


(At) 


= P 


Cl 


P (N- I ) , ( t+At ) 2 ' P N , ( t+At ) + P (N+I ) , ( t+At ) 


(flx)‘ 


+ P 


C2 


(N+l),(t+At) ( N- I ) , ( t+At ) 

2 • (Ax) 


(2-54) 


+ P C3 ’ [ P ks “ X k ’ P N , ( t+At )J 

The last term of this equation becomes, by the substitution of Equation (2-50): 


3 C3 ’ [ P ks ' X k P N , ( t+At )j " C PI N + C P2 n ’ P N, (t+At) 


(2-55) 
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where 


° PI N = PC3 N 


C - P 

P2 N C5 « 


p. + p ' • Iq - w. | 

N 2 N I S N k s(t)S 


|P„ • D, + P, ..) ~ X, 

( 2 n 2 n 3 > n k 


(2-56) 


(2-57) 


Combining Equations (2-54) and (2-55) and rearranging, the following is 
obtained. 

C I P, N ‘ P (N- I ) , ( t+At ) + C 2P,N ' P N,(t+At) + C 3P,N 


(2-58) 


P (N+ I ) , ( t+At ) “ °IP,N 


where 


'JP,N 


*2P,N 


'3P,N 


P P 

Cl ,N C2,N 


(Ax) 


2 2 • ( Ax ) 


1 + 2 ~ P C I ,N 

Wl (ta) 2 - P2,N 


P P 

Cl ,N C2,N 

( ta) 2 " ^ 


(2-59) 

(2-60) 

(2-61) 


N,t f 

I P,N = (At) + PI , N 


(2-62) 


Equation (2-58) has P as the only unknown, and can be solved by the 
method using Equations (2-41 ) through (2-46). Once P’s are found, new load- 
ings and temperatures can be obtained using these pressures. 

For the adsorption period, by setting = I , and replacing P by p^, 
Equation (2-36) by Equation (2-35), the following equations are obtained: 


W ks , ( t+At ) = Q s + °2 * P k 


(t+At) 


(2-64) 


”'"s,(t+At) - T °s + C s. P k,(t+At) ^s2 P k,s,(t+At) ^ 2 

p k,s,(t+at) = p , + p 2 - “k,s,t ] + [ p 2 ■ °2 + p 5 ] (2 - 66) 


P k,(t+At) 
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C P I , N 
fp g ' u 


P • M 

g 


C P2 . N 

f ‘ p g ' u 


P • M 

9 


where 

C PI,N _ a sg ’ K g ‘ C P I + P 2 ‘ ^V M k,sH 

(2-68) 


C P2,N - a sg ' K g ’ < P 2 ’ D 2 + P 3 ‘ 

(2-69) 


Equation (2-67) is used to find p 's' from the process gas inlet end all 
the way to the outlet end. w k ‘ s are found next v fo 1 I owed by temperatures. 


GENERAL FLOW CHART 

A general flow diagram of S9960 is given in Figure 2-3. 



k,N, (t+At) 


P k, (N+l ) , ( t.+At ) 

TO 1 * 
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Figure 2-3. Structure of Program S9960 
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SECTION 3 
USAGE 


PROGRAM INPUT 

Data input required by the program is executed by block data subprograms 
S9973 and S9993. Subprogram S9973 inputs all data required to execute the 
adsorption analysis; subprogram S9993 inputs all data required to execute the 
desor pt ion ana I ys i s . Both block data subprograms must be compiled at execu- 
tion time if cyclic system performance is desired. If only adsorption or 
desorption performance is required, then only the respective block data sub- 
program need be compiled at execution time. The following lists the variables 
which are inputted via the block data subprograms. 

Variables Common to Both S9973 and S9993 


FORTRAN 
Symbo 1 

Max i mum 
D i mens i on 

Def i n i t i on 



Bed Configuration 

ABED 

(41) 

Sorbent bed cross-section area normal to flow 
of process gas, sq ft 

AGX 

(41) 

Ident i cal to ASX 

ASX 

(41) 

Heat exchanger primary area per unit volume of 
sorbent bed, sq ft/(cu ft) 

DX 


Axial node dimension, ft 

NDR4 


Integer denoting total number of radial sorbent 
pellet nodes (interior nodes) 

NDXM 


Integer denoting total number of modecular sieve 
nodes 

NDXMAC 


Integer denoting number of active molecular 


sieve nodes, i.e., (NDXM - NDXMAC) represents the 
number of molecular sieve nodes which have been 

inactivated by water poisoning 

NDX1 Integer denoting total number of axial nodes 
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FORTRAN 
Symbo 1 

Max i mum 
D.iimens i on 

Def in i t i on 




Sorbent Properties 


ASG 

(41) 

Sorbent specific surface area, sq ft/(cu ft 
of bed) 

CPS 

' (41) 

Sorbent specific heat, Btu/(lb) (°F) 


RHOS 

(2) 

Sorbent particle density, lb/(cu ft) RHOS 
molecular sieve particle density, RHOS ( 2 ) 
desiccant particle density 

(1) 

RHOSB 

(41) 

Sorbent bulk density, lb/(cu ft) 


SK 

(41) 

Effective sorbent thermal conductivity, 
Btu/ (hr ) (sq ft) (°F/ft) 




Coolant Properties 


AVC 

(41) 

Primary heat exchanger plate area per unit 
volume of coolant held up in HX, sq ft/(cu 

ft) 

CPC 

(41) 

Coolant specific heat, Btu/(lb) (°F) 


NOG 


Node to which coolant is added 


RHOC 

(41) 

Coolant density, lb/(cu ft) 


T268 


Coolant inlet temperature, °F 


UC 

(41 ) 

Coolant velocity, ft/hr 




Heat Transfer Coefficients 


HSG 

(41) 

Heat transfer coefficient, sorbent to gas, 
Btu/(hr) (sq ft)(°F) 


HXC 

(41) 

Heat transfer coeff i cient,heat exchanger to 
coolant Btu/(sq ft) (hr)(°F) 

HXG 

(41) . 

Heat transfer coefficient, heat exchanger 
process gas, 6tu/(sq ft) (°F) (hr) 

to 

HXS 

(41) 

Heat transfer coefficient, heat exchanger 

to 


sorbent, Btu/(sq ft)(hr)(°F) 
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FORTRAN 
Symbo 1 

Max i mum 
D i mens i on 


Def i n i t i on 



Initial 

Condi t i ons 

TC 

(41) 

Initial 

coolant temperature, °F 

TG 

(41) 

Initial 

gas temperature, °F 

TS 

(41 ) 

Initial 

sorbent temperature, °F 

TX 

(41) 

Initial 

heat exchanger temperature, °F 

W 

(21,41) 

Initial 

sorbent loading, Ib/lb (double precision) 



Mass Transfer Properties 

DIF 

(41) 

Internal 

diffusivity, sq ft/hr 

GK 

(41) 

External 

surface mass transfer coefficient, 


1 b-mo 1 e/(hr ) (sq ft)(mm Hg) 
Process Gas Stream Properties 


CPG 

(41) 

Specific heat of the 

process gas, Btu/(lb)(°F) 

DH 

(41) 

Differential heat of 

adsorption, Btu/(lb adsorbed) 

WM 

(2) 

Adsorbate molecular weight 


WM(l) = 44 (CO ) 

WM( 2 ) = 18 (H O) 


HX Core, Propert i es 


AVX 

(41) 

Primary heat exchanger plate area per unit volume 
of heat exchanger core metal, sq ft/(cu ft) 

CPX 

(41) 

Heat exchanger specific heat, Btu/(°F)(lb) 

RHOX 

(41) 

Heat exchanger metal density, lb/(cu ft) 

TKX 

(41) 

Heat exchanger metal thermal conductivity, TKX (K) 
denotes that between node K-l and node K, 


Btu/ (hr ) ( sq ft)(°F/ft) 
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FORTRAN 
Symbo 1 

Max i mum 
D i mens i on 

Def i n it i on 



Miscellaneous Control Parameters 

CYCLE 


Cycle time per one adsorption or one desorption, 
period, hr 

DTMAX 


Maximum allowable time step size, usually 0.01 hr 
for isothermal analysis and 0.005 hr for noniso- 
thermal analysis 

NCYCLT 


Total number of complete adsorption-desorption 
cycle calculations desired 

NDTC0N 


If NDTC0N = 1, At will be selected such that 
AT = TI, AW = WI for time step; if NDTC0N = 2, 
At‘s as set in program will be used 

NPRINT 


Integer control variable which determines the 
frequency of printout occurrence; e.g., if 
NPRINT = 2, printout occurs after every two 
time steps, if NPRINT = 5, printout occurs after 
every five time steps, etc. 

NTEMP 


Integer control variable; if NTEMP = 0, isotherma 


analysis; the energy equations are ignored, and 
the bed temperature is set equal to T268. If 
NTEMP ^ 0, non i sotherma 1 analysis 


TI Maximum temperature change allowable per time 

increment in selecting At, °F 

WI Maximum loading change allowable per time 

increment in selecting At, lb/lb 

NOTE: Variables W, TG, TS, TC, TX, N PR I NT, DTMAX, NTEMP, CYCLE, 

NCYCLT , WI, TI, NDXMAC and NDTC0N need to appear only 
once either in S9973 or S9993. 
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Input Variables 

Required by S9973 Only 

FORTRAN 
Symbo 1 

Def i n i t i on 

GMR 

Process gas flow rate, lb/hr 

GMW 

Process gas molecular weight 

PA 

System total pressure, mm Hg 

PC02C 

Initial CO^ partial pressure in cabin, mm Hg 

PH201 

Inlet H^O partial pressure, mm Hg 

TGI 

Inlet process gas temperature, °F 

V0LCAB 

20 

Cabin volume for atmosphere, cu ft; use V0LCAB = 10 , 

for constant PC02C 

RC02C 

Rate of CO^ generation in cabin, lb C0^ per hr 

Input Var iables 

Required by S9993 Only 

FORTRAN 

Symbol 

Definition 

NBCOUT 

Integer control variable; if NBCOUT ■ = 2, the 
outlet manifold pressure is specified as a 
function of time; NBCOUT = 1, the manifold 
pressure is computed from vacuum duct resistance 

POUT 

TIMET 

(10) 10 pairs of exit pressure vs time data to be used 

(l0) if NBCOUT = 2; POUT = vacuum end manifold pressures 

(mm Hg), TIMET = times (hr) 


NPSET ( 3 ) Denotes nodes to which vacuum is applied 

Function PKEQ'(lD, W,T), S9992 

This function subprogram must be defined, which computes for ID = I, the 
equilibrium CO^ pressure over the molecular sieve sorbent at a loading of 

W lb CO^/lb sieve and at T °F; and for ID = 2, computes H^O vapor pressure over 

the desiccant sorbent at a loading of W lb H^O/lb desiccant and T °F. 
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Equilibrium isotherms can be used in tabular forms and p. “ .obtained 

(W,T) 

by an interpolation technique, or the data can be fit by a mathematical 
expression which is evaluated in this subprogram. The latter approach is 
recommended since experience has indicated that by using the former approach, 
the total run time of the present program is about twice the time required 
by using the latter approach. 

Vacuum Duct Characteristics 

The vacuum duct characteristics represented by Equation (2-26) was for 
a 3-in. -ID by 18 in. long duct, which may not be the case for the problem 
to be simulated. If this is the case the outlet boundary condition expressed 
by Equations (2-26) and (2-37) must be modified. The required changes are 
minor and will be shown in the example problem to be presented in Section 4. 

OUTPUT DESCRIPTION 

The first page of output gives bed volumes and weights of molecular sieves 
and desiccants. 


From the second page on, bed properties are printed at the end of each 
adsorption and desorption period. From the NSTART-th cycle on, the bed 
properties are printed every NPRINT time steps. 


In the adsorption period, the cycle number is printed on the first line. 
Time from the beginning of adsorption period is printed next in hours and 
minutes. The size of time increment last used follows the adsorption time. 

CO^ and HO, partial pressures in the process gas stream, gas, sorbent, coolant, 

and HX core temperatures are then given at each axial node, node 1 designating 
the bed outlet and the highest node representing the process gas inlet node. 
Sorbate loadings in (lb sorbate)/(lb sorbent) appear at all sorbent interior 
nodes and at all axial locations. The average loading at each axial location 
is also given. The average C0^ loading in the active molecular sieve sorbent. 


the average H^O 


load i ng 


in the desiccant sorbent, 


average 


rates of CO 


2 


and HO 
2 


adsorption computed over the period from the beginning of the adsorption cycle 
up to the moment, time average water partial pressure at the bed outlet, and 
the average rate of H^O influx into the CO^-sorbent section are printed. 


Printouts during desorption periods are .similar to those of adsorption 
periods except that, for all longitudinal locations total pressures instead of 
the partial pressures of C0^ and H^O are printed, and in addition, mole 

fractions of H^O in the vapor phase and molal flow rates of C0^ and H^O for 

all axial nodes, are also written. 
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EXECUTION CHARACTERISTICS 
Res t r i ct i ons 


The program is limited in the case where sorbents are regenerated by 
vacuum desorption, either with or without the application of heat in addi- 
tion. Program modifications will be required if gas stripping is resorted 
for sorbent regenerations. 

The program requires a total of 31,000 words storage with Univac 1108 
computer . 

Running Time 


Running time depends on the total number of nodes employed in a simulation. 
Using a total of 18 nodes, the ratio of real time to Univac 1108 computer time 
i s roughly 150 to 1 . 

Accuracy/Va 1 i d i ty 

The present program was tested on the regenerable CO^ removal systems for 

AAP and Airlock applications. Comparisons between the predictions made by 
the program and the test data are reasonably good. 


AIRESEARCH MANUFACTURING COMPANY 

Los Angeles. California 


72-8786 
Page 45 




NASA CR-I I 2098 


SECTION 4 

SAMPLE PROBLEM SOLUTION 


BED DESIGN 

As an example of the program usage, the performance of the C 02 -remova) 

system designed by AiResearch for the Ai r 1 ock app 1 i cat i on w i 1 1‘ be s imu 1 a ted . 

The bed design is shown in Figure 4-1. 

The predryer section is bulk packed with Linde Molecular Sieves type 
I3X of 1/16 in. size. The CO^ adsorber is composed of an electrically heated 

plate-fin heat exchanger, with the gas passages filled up with Linde Molecular 
Sieves type 5A of 1/16 in. size. The electric heater is used only for bakeout, 
and during normal operation the heat exchanger, together with the heater, simply 
acts as a thermal capacitor only. The electric heater elements used are KAPTON 
and the plate-fin heat exchanger is aluminum. The outside shell of the canister 
is made of stainless steel. 

DESCRIPTION ON GENERATION OF INPUT DATA 

The input data for simulating the performance of the above CO 2 removal. 

unit are described below. Since no coolant is used for temperature control in 
the present system, coolant nodes are used as ambient temperature nodes to 
simulate heat losses to the surroundings, and the thermal capacitance of the 
heater is lumped into sorbent nodes. Heat exchanger core metal nodes designate 
the shell temperatures. 

Bed Configuration 

AVX = 375.0 is obtained by dividing the shell area by shell volume 
ASX = AGX - 6.18 is obtained by dividing shell area by bed volume 
ASG = 700 for bulk packed 1/16 in., pellets, 

= 560 for same pellets in heat exchanger section 
Heat Transfer Coefficients ' 

I . Sorbent to Gas 


HSG = 20 during adsorption. This is obtained from the low Reynolds number 
calculations of Pfeffer (Reference 4). The Nusselt number with a flow rate of 
10.0 lb/hr is about 8.2. With a gas phase thermal conductivity of 0.01475 
3 1 u 

7 - — - p - and an effective particle diameter of: 


d = srHto = °- 00603 ft ’ 
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IN. DIA X 0.028 ORES COMP 321 

\K i\ K x 

x \ | BAKE-OUT, 

t — It heater assembly 
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MOLECULAR SIEVE CANISTER COMPUTER NODAL STRUCTURE 




0.016 DIA WIRE 20 SQ MESH CRES 304 

I M \| x I N 


I 1 . U X \ 

0.040 CRES 347 \ , \ \ \ 


1 OUTER - 0.040 CRES 347 

HEATER - 12 STACKS 0.660 HIGH 

NO. 22 Al FINS 4 FINS/IN 
0.008 IN. SHEET 
6 KAPTON HEATING ELEMENTS 


MOLECULAR SIEVE 

MOLECULAR SIEVE 


TYPE 5 Ai 1 

f" TYPE 13X 


7.00 LBS 

i 10.35 LBS. 

S-40A59 

Figure 4-1. Molecular Sieve 

i Canister for Airlock Application 
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HSG = Nu x k/d = 8.2 x 0.01475/0.00603 = 20 

During desorpt i on, : the . the rma 1 conduct i v i ty of the gas drops to 0.0022 Btu/hr 
ft °F, (Reference 5). Thus,. HSG becomes > ' 

HSG = 8.2 x 0.0022/0.00603 = 3.0 

2 . Sorben t to She 1 1 

The term HXS accounts for ail heat exchange between the sorbent and the 
canister wall. To make these calculations, the effective thermal conductivity 
of the sorbent must be known. (This is also necessary for the term SK. ) 
Phillips (Reference 6) has obtained a cor re 1 a t i on for bed thermal conductivity 
as a function of the gas conditions as well as the sorbent. - 

For the conditions here during adsorption: 

SK = 0. 10 Btu/(sq f t) (hr) (°F/ft) 

and for desorption, 'bulk pack 

SK = 0.08 Btu/(sq ft) (hr) (°F/ft) 

The conductivity in the heater section is then estimated by using volume 
weighted average of heater and sorbent conductivities. During adsorption, 

SK = 11.6 

and during desorption, heat exchanger 

SK = I I .6 

The heat transfer coefficients are found by assuming a conductance path. 
In the bulk pack sections the path is taken as one-half the distance from 
the canister wall to the center of the bed. This yields a coefficient during 
adsorption of, 

HXS = k/AX = 0. 10/0. 145 = 0.685 
during desorption, - 

HXS = 0.08/0. 145 = 0.55 

In the heat exchanger core the same conductance path was used. However, the 
mixed AI-MS conductivity is used. During adsorption the coefficient becomes 

HXS = I 1.6/0. 146 = 79.5 

during desorption, the coefficient is 

HXS = I 1.6/0. 146 = 79.5 
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3. Gas to She 1 1 

The gas to shell heat exchange accounts for a very small portion of the 
total energy transfer. The coefficient is calculated throughout the canister 
as the conductivity divided by the average heat path. 

HXG = 0.01475/0. 146 - 0. 101 

during desorption 

HXG = 0.0022/0. 146 = 0.0151 

Diffusion Coefficients for C0£ in 5A and H 2 O in I3X 

DIF = 4.0 x 10“^ throughout. No internal mass transfer resistance results 
from the use of this size diffusion coefficient. 

Mass-Transfer Coefficients 

The following mass transfer coefficients are determined from test data 
obtained at AiResearch. 

I . Adsorpt i on 


GK C0 2 - 

5A 

0.9 x 

I0 -4 

. G V . 

II 

X 

rO 

5.0 x 

10" 

Desorpt ion 

gk co 2 - 

5A 

5.0 x 

O 

1 

■IN 

gk h 2 0 - 

l3 x = 

1.0 x 

I0" 3 


Properties of Sorbents 

1 . Sorbent Density 

RH0S = 64 lb/cu ft 

2 . Bulk Dens i ty 


RH0SB 

= 45 

1 b/cu 

ft 

in bulk pack 

RH0SB 

= 36 

1 b/cu 

ft 

in heater core 
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Heat of Adsorption 

The following heat of adsorption data are calculated from equilibrium 
isotherm data as described in (Reference 7). 

DH = 400 for C0 2 on 5A (Btu/lb) • < . . 

DH = 1400 for H 2 0 on I3X (Btu/lb). . 

Equ i 1 i b r i urn Data 

Equilibrium data for H ? 0 - I3X and C0„ -5A are fitted by equations and 
are used in FUNCTION PKEQ. ^ 

Vacuum Duct and Gas Valve Cha racte r i st i cs 

The gas^d i scha rge capacity of the vacuum duct with, gas valve for the 
Airlock molecular sieve system was found . to be approximated by 'the following 
express ion; 

W D < P > = [/"(crisis) + l - 76 ] /l ' 96 (4 - |) 

This equation is used in subroutine DESORB for the present simulation. 
SUMMARY AND LISTING OF INPUT DATA 
Summary of Input Data 

A summary of the input data for the example problem is presented in 
Figure 4-2 . ; . 

Listings of the input and output data are given in the following pages. 
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SECTION 5 

REFERENCE INFORMATION 


SUBPROGRAM DOCUMENTATION 
Main Program (S9950) 

This.main program calls MADSOR to. perform one adsorption half-cycle 
calculation. 

Main Program (S995I) 

This main program calls MDESOR to carry out one desorption half-cycle 
calculation. 

MADSOR (S9970) 

Th i s sub rout i ne monitors the adsorption half-cycle calculations. It 
prints the total quantities of molecular sieve and silica gel pellets in the 
composite bed for input data check-out purposes. The routine, then, calls 
STARTA. The time increment size for the next time step is selected such that 
TI and WI specified in the input data are satisfied. Subroutine ADSORB is 
then called to advance one time step, new cabin P is calculated and the 

results are printed if this should be done according to NPRINT, and NSTART. 

The program flow chart is given in Figure 5-1. 

STARTA ( S9978 ) . 

Everything which stays constant throughout the entire adsorption half 
cycle is evaluated in this subroutine. A, RS, CRI, CR2, CR3 are evaluated 
in the subroutine. 

ADSORB $997 1) 

This subprogram computes all the coefficients required in Equations (2-64) 
through (2-69), solve for p^' s first, followed by bed loadings, and temperatures. 

A logic diagram of the subprogram is shown in Figure 5-2. 

TS0RBA (S9977) 

This routine solves Equation (2-32) for adsorption period sorbent tempera- 
tures, using the method shown in Equations (2-38) through (2-46). 
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S-50348 


Figure 5-1. Logic Flow Chart for MADSOR 
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Figure 5-2. Logic Flow Chart for ADSORB 
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TGLC0L ( S9987 ) 

Equation (2-33) is solved for coolant temperatures using the method 
described by Equations (2-38) through (2-46). 

HXC0RE (S999I) 

Equation (2-34) is solved for heat exchanger core temperatures using the 
method described in Equations (2-38) through (2-46). 

GASTA ( S9976 ) 

Equation (2-31) is used to obtain gas temperatures for the adsorption 
period. Arguments of the subroutine are 

CMR = process gas flow rate, lb/hr 

CPG = specific heat of process gas stream, Btu/(lb)(°F) 

ABED =. cross-sectional area, (sq ft) 

NDX I = total number of axial nodes 
TGI = process gas inlet temperature, °F 

ASG = sorbent surface area per unit bulk volume, (sq ft)/(cu ft) 

HSG = heat transfer coefficient between gas and sorbent, Btu/(sq 
ft) (hr) ( °F ) 

AXG = primary heat transfer area between heat exchanger and gas, 
(sq ft )/ ( cu ft) 

HXG = heat transfer coefficient between heat exchanger and gas, 
Btu/ (hr ) (sq ft) (°F) 

DX = axial increment size, ft 

TG = gas temperature, °F 

TS = sorbent temperature, °F 

TX = heat exchanger temperature, °F 

PRADSB (S9979) 

This is the print routine for the adsorption program. A detailed 
description of output variables was given in Section 3. 
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MDESOR ( S9980 ) . ' ; 

The routine controls desorption calculations much as MADSOR does the 
adsorption counterpart. It calls START; picks up a At, calls DESORB, PRDESB, 
and stores temperatures. 

START ( S9988 ) 

Similar to STARTA for the adsorption, this subroutine generates all the 
coefficients which stay unchanged for the entire desorption half cycle. 

PRDESB ( S9989 ) 

This is a print routine for the desorption program. For a detailed 
description of output variables, refer to Section 3. 

DES0RB ( S9983 ) . 

Heat and material balance equations for the desorption period are solved 
by the method described in Section 2. The coefficients required in Equations 
(2-48) through (2-62) are computed, the desorption pressure Equation (2-58) 
is solved in double precision and these pressures are used to calculate new 
bed loadings and temperatures. A logic flow chart for th i s subp rog ram is 
given in Figure 5-3. 

TS0RB ( S9997 ) 

This routine solves for sorbent temperature in the desorption period,- 
using the method described by Equations (2-38) through (2-46). 



The routine solves Equation (2-31) for the desorption period gas 
temperatures. Arguments of the subprogram are defined: 

DX = axial increment size, ft 

RH0G = density of vapor mixture, lb/(cu ft) 

CPG = specific heat of vapor mixture, Btu/(lb)(°F) 

II = linear velocity of vapor mixture, ft/hr 

TS = sorbent temperature, °F 

TX = heat exchanger temperature, °F 

NDXI = total number of axial nodes 

ASG = sorbent surface area per unit bulk volume, (sq ft)/(cu ft) 

HSG = heat transfer coefficient between gas and sorbent, Btu/(hr) 
(sq ft) ( °F ) 
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Figure 5-3. Logic Flow Chart for DESORB 
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AXG = primary heat transfer area between heat exchanger and gas, 
(sq f t )/ ( cu ft) 

HXG = heat transfer coefficient between heat exchanger and gas, 
Btu/(hr)(sq ft)(°F) 

TG = gas temperature, °F 

V0IOF = void fraction 

PKEQ (S9992) 


This function subprogram calculates the equilibrium CO^ and vapor 
pressures over the molecular sieve and desiccant sorbents, respectively. 

Arguments of the function are 

ID = control index, ID = I indicates CO^ over molecular sieve 
sorbent, ID = 2 indicates h^O over desiccant sorbent. 

W = loading, 1 b-sorbate/( 1 b-sorbent) 

T = sorbent temperature, °F 

IFN (S998I) 

The function determines whether a given axial node belongs in the 
molecular sieve bed or desiccant bed. 

FDEQIM (S9984) 

The routine solves a system of finite difference equations by the method 
described by Equations (2-38) through (2-46). 

FDEQID ( S9985 ) 

The subroutine is a double precision version of FDEQIM. 

LAGIN2 (S9996) 

This routine performs a Lagrangian polynomial interpolation. Arguments 
va r i ab 1 es a re : 

ID = in case of trouble, this ID number will be printed for program 
checkout 

X = independent variable 

NP = number of tabulated pairs of data to be used 
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ND = Number of points to be used in interpolation. For instance if 
ND = 2 , linear interpolation will be used 

X0 = value of independent variable X 

Y0 = value of dependent variable corresponding to X0 (this is the 
answer obtained by LAGIN2) 

Y = dependent variable 
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SOURCE PROGRAM LISTING 
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NOMENCLATURE 


FORTRAN A1 qebra i c* 



ADT 



ADT2 



ABED 


A 

AGS, 

ASG 

a 

s 9 

AGX, 

AXG 

a 

xg 

ASX, 

AXS 

a 

xs 


AVC a 

vc 

AVLD 

AVH20P 

AVMSlD 


Descr i pt ion 


Quant i ty 


'f • p * u \ 

g a 


P • M 


appearing in Equation (2-35), 
g / Ref (I) (lb-mole )/(hr) (sq ft) 
(mm Hg) 


Temporary storage for DT, hr 

Temporary storage for DT, hr 

Cross-sectional area of adsorbent bed, sq ft 

External surface area of sorbent, sq ft/(cu ft of bed) 

Primary heat transfer area between heat exchanger and 
gas stream, sq ft/cu ft of sorbent bed 

Primary heat transfer area between heat exchanger and 
sorbent, identical to a 

xg 

Primary heat transfer area for coolant, sq ft/(cu ft 
of coolant volume) 

Average loading at each axial node, ( 1 b-sorbate )/ ( 1 b- 
sorbent ) 


Average poisoning rate of molecular sieves by H ? 0, 

(lb-HgOVhr 

Average CO^-loading of all active molecular sieve 
sorbents, 1 b-CC^/ ( 1 b-mo lecu 1 a r sieves) 


AVPH20 

AVRC02 

AVRH20 


Average outlet P^O; mm Hg 

Average CO^ adsorption or desorption rate, Ib-CC^/hr 
Average H^O adsorption or desorption rate, Ib-H^O/hr 


AVSGLD 


Average H^O-loading of desiccant sorbents, lb-I^O/ 
(lb-desiccant) 


AVX a 

vx. 


Primary heat transfer area for heat exchanger / sq ft 
plate area/(cu ft of metal) 


^Referring to equations in Part I of this report. 
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FORTRAN A 1 qebra i c 
B 


c 

C 

CPC 

C 

pc 

CPG 

C 

P9 

CPL 


CPP 


CPS 

C 

ps 

CPX 

C 

px 

CPI 


CP2 


CRI 


CR2 


CR3 



Descr i pt ion 

Temporary variable used in simultaneous solution of 
a system of finite difference equations. See 
Equations (2-41) and (2-42), in Part I of this report. 

Molal density of gas mixture, lb moles/(cu ft) 

Heat capacity of coolant, Btu/(°F)(lb) 

Heat capacity of gas mixture, Btu/(°F)(lb) 

Specific heat of adsorbed sorbate, Btu/(°F)(lb) 

Specific heat of dry sorbent, Btu/(°F)(lb) 

Sorbent specific heat, Btu/(lb)(°F) 

Heat capacity of heat exchanger metal, Btu/°F)(lb) 

Coefficients in equation 

PC3 ' ( Pks t ♦J' XkP ‘ " cpl + cp2 ' p t + 


Coefficients in following equation which is merely 
another form of Equation (2-28), in Part I of this 
report. 


CRI 


^k,M, (t + At) ^k,M,t 

(aF) 


CR2 



(M-l )(t + At) 


“ W k,M,(t + At ) + CR3 ' ^ W k,M,(t + At ) 
” W k, (M + l), (t + At)) 


CSI 

CS2 


Coefficients in equation 

T / . . \ -T = DS + CS I 

s (t + At ) s,t 


(t + At ) 


- CS2 


ks , (t + At ) 


CYCLE 


Cycle time per one adsorption or one desorption 
half-cycle, hr 


Cl 

C2 

C3 


Coefficients in equation 


C l * W (t + At), (M-l ) + C2 ’ W (t + AT), M 


+ C3 • W 


(t + At), (M + I ) = Dl 
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FORTRAN 

CIP 

C2P 

C3P 

DH 

DIF 

DP 

DPC02C 

DS 

DT 

DTMAX 

DT0 

DTT 

DVS 
DVS I 

DX 
D I 
D I P 
D2 

F 

FR 



Algebraic 


AH 

D. 


At 


F 


Descr i pt ion 

Coefficients in equation 

CIP • P (t + At), (N-l) + C2P ' P (t + At ), N 

+ C3P ' P (t + At), (H + I ) " DIP 

Heat of adsorption at each node Btu/(lb adsorbed) 

Mass diffusivity of component k through the interior 
of sorbent, sq ft/hr 

Sorbent diameter; ft 

Cabin CO 2 partial pressure increase in one time 
increment; mm Hg 

See CSI 

Time increment; hr 

Maximum allowable time step size, usually 0.01 hr 
for isothermal analysis and 0.005 hr for non isotherma 1 
analys is 

Time increment of previous computation step, hr 

Maximum allowable time increment calculated from each 
bed trans i ent , ' hr 

Size of interior sorbent volume elements, (cu ft) 

Size of sorbent volume elements at surface and center 
of spherical pellets, D VS I = 1/2 DVS; (cu ft) 

Axial node dimension; ft 

See Cl 

See Cl P 

Coefficient in equation (t + ^ } = Q. + D2 • P (t + At) 

Factor defined by Equation (2-17), a function of pressure 

Molal flow rates of CC >2 and H 2 O, during desorption, 

FR (!,N) is CO 2 rate, FR (2,N) is H 2 O rate, Ib-mole/hr 
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( 


FORTRAN 

A1 qebrai c 

Desc r i pt i on 


G 

Mass flux = Ug . Pg, lb/(hr)(sq ft void area) 

GK 

K 9 

Mass transfer coefficient between bulk stream and the 
surface of adsorbent. Surface kinetic rate can be 
incorporated in this coefficient, lb-moles/(hr ) 

(sq ft)(mm Hg) 

GMR 

G t 

Total mass flow rate, lb/(hr) 

GMRI 

GMR2 

GMR3 

GMR4 

) 

) 

GMR for bed 1, bed 2, bed 3 and bed 4, respectively 

> 

1 

GMW 

M 

9 

Average molecular weight of process gas 

GMWI 
GMW2 
GMW3 
GMW 4 

] 

t 

X 

| GMW for bed 1, bed 2, bed 3, and bed 4, respectively 

HCX, HXC 

h 

xc 

Heat transfer coefficient between heat exchanger 
primary plate and coolant, Btu/(sq ft)(°F)(hr) 

HGS , HSG 

h 

sg 

Heat transfer coefficient between sorbent and gas, 
based on a , Btu/(sq ft)(°F)(hr) 

HXS, HXS 

h 

xs 

Effective heat transfer coefficient between heat 
exchanger primary plate and sorbent, Btu/(sq ft) 
(°F ) (hr ) 

HTR 


Same as HTRl if IST0PC = 0. This variable is 
used in program 

HTRI 


Electric heater power read- in for each node, Btu/hr 

HXG 


Heat transfer coefficient between heat exchanger 
primary plate and gas stream, Btu/(sq ft)(°F)(hr) 

IDB 


Storage variable for all the integer variables 
characterizing desiccant bed configurations, such 
as NPSET, NDR4, etc 

IDS0RB 


Index identifying sorbent used for each node; 1 = 5A, 
2 = S.G. 3 = 13 X, 4 = 4A, 5 = 3A 

IMA IN. 


Storage variable for the control integer variables 
for the system, such as NCYCLT, NPRINT, etc 
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FORTRAN.. 

A 1 gebra i c 

Description . 

IMB 


Storage variable for all the integer variables • • 

characterizing molecular sieve bed conf i gurat ions , 
such as NPSET, NDR4, etc . 

IST0PC 


Control index showing availability of coolant and 
heat, if IST0PC t 0, WC = 0, HTR = 0, SABC02 = 0 

KBED 


Integer indicating whether a bed exists. KBED (3) = 0 
means bed 3 does not exist 

NCT 1 


Number of cycles to be run before assessment of water 
poisoning effects 

NCT2 


Number of cycles to be run after node adjustment for 
effects of water-poisoning 

M 

sg 


Molal rate of mass transfer into bulk gas stream/unit 
bed volume, lb-moles per (cu ft of bed) (hr); see 
Equation (2-15), in Part I of this report. 

M 

s 


Interior node corresponding to the surface of pellet 

NBC0UT 


Integer control variable, if NB0UT = 2, the outlet 
manifold pressure is specified as a function of time; 
NB0UT = 1, the manifold pressure is computed from 
vacuum duct resistance 

NCYCLE 


Number of complete adsorption-desorption cycles from 
beginning of run 

NCYCLT 


Total number of complete adsorption-desorption cycle 
calculations desired 

NDR4 


Integer denoting total number of radial sorbent 
pellet nodes (interior nodes) 

NDTC0N 


If = 1, internal At calculations. If = 2, fixed 
At 's in program will be used 

NDXM 


Integer denoting total number of molecular sieve nodes 

NDXMAC 


. Integer denoting number of active molecular sieve modes 
i.e., (NDXM-NDXMAX ) represents the number of molecular 
sieve nodes which have been inactivated by water 
poisoning 

NDXI 


Integer denoting total number of axial nodes 
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FORTRAN Algebra i c Descr i pt ion 


NHALF 


NHALF = 1, beds 1 and 2 are adsorbing, beds 3 and 4 
are desorbing; 



NHALF = 2, beds 1 and 2 are desorbing, and beds 3 
and 4 are adsorbing 

N0G 


Node to which coolant is added 

NPR 


Number of time steps elapsed since last printout 

NPRINT 


Integer control variable which determines the frequency 
of printout occurrence; e.g., if NPRINT = 5, printout 
occurs after every five time steps 

NPSET 


Integers which denote the nodes to which tabulated 
vacuum history is applicable 

N START 


Integer denoting the cycle from which on bed perfor- 
mance will be printed at frequency specified by NPRINT 

NSTI 


NSTART for the NCTl run 

NST2 


NSTART for the NCT2 run 

NTEMP 


Integer control variable; if NTEMP = 0, the energy 
equations will be ignored and bed temperatures set 
equal to TCIN; if NTEMP f 0, heat balances will be 
performed 

PA 

P 

Bed total pressure during adsorption, mm Hg 

PAC 


Cabin pressure, mm Hg 

PA 1 
PA2 ' 
PA 3 
PA 4 


| PA for bed 1, bed 3, bed 3 and bed 4, respectively 

PC02A 


CC^-accumu 1 ator pressure, psia 

PC02C 


C0 2 partial pressure in cabin^ mm Hg 

PC02I 


CO^ partial pressure at adsorption bed inlet, mm Hg • 

PC02II 

PC02I2 

PC02I3 

PC02I4 


j PC02I for bed 1, bed 2, bed 3 and bed 4, respectively 
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FORTRAN Algebrai c 


Des cr i pt i on 


PCI 

PC2 

PC3 


Coefficients in equation for desorption pressure 


P (t+At), N P t, N 

St) 

= PCI • P (t-tAt), N- 1 ) 2P (t+At), N + P (t+At), (N-l ) 

(Ax) 2 


+ PC2 • 
+ PC3 * 


P (t-»At), 
P ks (t+At ) 


(N+l) P (t-tAt), 
2(Ax) 

' X k P (t-tAt) 


(N-l ) 


PH20C 

PH20I 

PH20II 

PH20I2 

PH20I3 

PH20I4 

pk(k,n) P(< 


PKI 

PK2 

PK3 

PK4 

PN2 

PN2 1 
PN22 
PN23 
PN24 

P0UT 


P02 

P02 1 
P022 
P023 
P024 

PS 


H 2 0 partial pressure in the cabin, mm Hg 
Inlet H 2 0 partial pressure, mm Hg 
| PH20I for bed I, 2, 3 and 4, respectively 

p * X, ; partial pressure of component k in bulk gas 

K 

stream, mm Hg 

| PK for bed I , 2, 3 and 4, respectively 

N^ partial pressure for overboard loss computation 
| PN2 for bed I , 2, 3 and 4, respectively 

10 tabulated desorption outlet pressures at TIMET, 
mm Hg 

0^ partial pressure for overboard loss calculations 
I P0 2 for bed I, 2, 3, and 4, respectively 

Variable for a temporary storage of PT 
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FORTRAN Alqebaric 


PT 

P 

PTI 
PT2 
PT3 
PT 4 


PUMP 


PI 


P2 


P3 


Q. 


RBIM 


RB2M 


RB3M 


RB4M 


RC02C 


RDB 


RDBA 


RDBD 


RGAS 

R 

RH0C 

P c 

RH0G 

P 9 

RH0S 

P s 

RH0SB 

P sb 

RH0X 

P x 


Descr i pt ion 

Total pressure in bulk gas stream, mm Hg 
PT for bed I , 2, 3 and 4, respectively 


Pressure ratios at which vacuum pump displacements 
VPUMP are tabulated 


Coefficients in equation 


ks 


(t+At ) 


Pl +P2 ' ( W k,s(t + At) 


+ P3 • P 


Temporary variable like B. See equations (2-43) and 
(2-44), Ref (I ) 

Variable equivalent to TGI, PH 201 1 , etc 
Variable equivalent to TG2, PH20I2, etc 
Variable equivalent to TG3, PH20I3, etc 
Variable equivalent to TG4, PH20I4, etc 
Rate of CO^ generation in cabin, lb CO^ per hr 

Storage variable for real variables character i z i ng 
desiccant bed configuration 

Storage variable for real variables characterizing 
des i ccant bed adsorpt ion half cycle transfer processes 

Similar to RDBA for desorption half-cycles 

'Gas constant, 554 (mm Hg) (cu f t )/ (1 b-mole ) (°R) 

Coolant density, lb/(cu ft) 

Gas density, lb/(cu ft) 

Sorbent density, lb/(cu ft particle) 

Sorbent bulk density, lb/(cu ft bed volume) 

HX core metal density, lb/(cu ft) 


AIRESEARCH MANUFACTURING COMPANY 

Los Angeles. California 


72-8786 
Page 116 



NASA CR-I I 2098 


FORTRAN 

RMAIN 

RMB 

RMBA 

RMBD 

RS 

RSI 

SABC0S 

SABC02 

SK 

SUMPTM 

TC 

TC02A 

TCIN 

TOO I 
TC02 
TC03 
TC04 

TCI 

TCI I 
TCI 2 
TC I 3 
TCI 4 



A 1 qebra i c Descr i pt ion 

Real variable equivalent to WM, CYCLE, etc., which 
are common to all beds 

Storage variable for real variables characterizing 
molecular sieve bed configuration, such as ABED, AVC, 
etc. 

Storage variable for real variables characterizing 
molecular sieve bed transfer processes during adsorp- 
tion half cycles, such as HXG, HXS, etc. 

Similar to RMBA for desorption half cycles 

r Average particle radius found from p , and a ,ft 

s s b sg 

Radius of spherical surface 'separat ing two interior 
sorbent volume elements, ft 

A permanent storage for SABC02 

Rate of C0„ intake by a Sabatier reactor or equivalent, 
lb/hr 

k Effective thermal conductivity of sorbent bed, 

Btu/ (hr ) (sq ft) (°F/ft) 

t 

Quantity E P H2 o, outlet ’ (At ), (mm) (hr ) 
t = zero 

T c Coolant temperature, °F 

CC^-accumu 1 ator temperature, °F 

Identical with T268, inlet coolant temperature, °F 
) Initial TC for bed I, 2, 3 and 4, respectively 


Coolant temperature at time, t - At 
| TCI for bed I, 2, 3, and 4, respectively 
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FORTRAN Algebra i c 

TC2 

TC2 1 
TC22 
TC23 
TC24 


TG T 

9 

TGC 


TGHX 


TGI 

TGI I 
TGI2 
TGI3 
TGI4 


T . 
gi 


TGI 

TG2 

TG3 

TG4 


TI 


TIME t 


Description 

Coolant temperature at time, t - 2At 
TC2 for bed I, 2, 3 and 4, respectively 


Gas temperature, °F 
Cabin temperature, °F 

Maximum allowable temperature at molecular sieve bed 
inlet, above which an intercooler will be used to 
lower it to TGHX, °F 

Inlet gas temperature for adsorption cycle, °F 
TGI for bed I, 2, 3, and 4, respectively 


TG for bed I, 2, 3, and 4, respectively 


Maximum temperature change allowable per time 
increment in selecting At, °F 

Time from beginning of each adorption or desorption 
period, hr 


TIMEDS 


Maximum desorption time beyond which IST0PC will be 
set equa 1 to I , hr . 


TIMEM 


Time above in minutes 


TIMET 


10 times at which P0UT are tabulated, hr 


rex k x 


Thermal conductivity of heat exchanger core metal, 
Btu/(hr) (sq ft) (°F/ft) 


TMAX 


Maximum allowable sorbent temperature, above which 
heater will be shut off, °F 


T0TC02 


Total amount of CO^ adsorbed since beginning of 
adsorption period, lb 
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FORTRAN Alqebraic 

Descr ipt ion 

T0THTC 

Total heat added/removed by coolant; Btu 

T0TH20 

Total amount of 1^0 adsorbed since beginning of 


adsorption period; lb 

T0TKWH 

Total KWH of electric power used by desorbing beds, KWH 

— 1 
CO 

-H 

Sorbent temperature; °F 

TSOI ] 

| Initial sorbent temperatures for bed 1, 2, 3, and 4, 

TS02 1 

> respectively 

TS03 1 

1 

TS04 > 


TS 1 

Sorbent temperature at time t - (At), °F 

TS 1 1 


TS 1 2 1 

| TS 1 for bed 1 , 2 , 3, and 4, respectively 

TS 1 3 | 


TS 1 4 ; 


TS2 

Sorbent temperature at time t-2 (At), °F 

TS2I ] 


TS22 1 

| TS2 for bed 1; 2 , 3 , and 4; respectively 

TS23 1 


TS 24 > 


TX T 

X 

Heat exchanger core metal temperature, °F 

TXOI 

Initial TX for bed 1, 2, 3, and 4, respectively 

TX02 1 


TX03 I 


TX04 > 


TX 1 

Heat exchanger core metal temperature at time 


t - (At), °F 

TX 1 1 ) 

1 TXl for bed 1, 2, 3, and 4, respectively 

TX 1 2 ' 

f 

TX 1 3 | 


TX 1 4 J 


TX2 

Heat exchanger core metal temperature at time 


t-2 (At), °F 

TX2I ) 

| TX2 for bed 1, 2, 3, and 4, respectively 

TX22 < 


TX23 | 

1 • 

TX24 > 

1 
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FORTRAN 

A 1 gebra i c 

T268 

T 268 

UC 

u 

c 

UG 

u 

g 

VC02A 


VMS 


V0IDF 

f 

V0LCAB 


VPUMP 


VS 


VSG 


W 

w k 

WC 


WCC 

w d ( p ) 

WI 


WM 

M k 


WS 

WTACMS 

WTMS 

WTSG 

Wl 

W2 

W3 

W4 


Descr i pt ion 

Inlet coolant temperature, °F 
Coolant velocity, ft/hr 

Interstitial gas velocity, i.e., true gas velocity, 
ft/hr 

CO^-accumul ator volume, cu ft 

Total bulk volume of molecular sieve sorbents, cu ft 
Void fraction of bed 

or\ 

Cabin volume for atmosphere, cu ft; use V0LCAB = 10 , 

for constant PC02C 

Vacuum pump displacements tabulated at pressure ratios 
PUMP, cfm 

Volume of a single sorbent pellet, cu ft 

Total bulk volume of desiccants, cu ft 

Local loading of component k in sorbent, lb sorbate 
k/lb sorbent 

Coolant flow rate actually used in program, Ib/hr 
Coolant flow rate inputted, lb/hr 

A function of pressure which represents the capacity 
of vacuum duct at duct inlet pressure of P mm, Ib/hr 

Maximum loading change allowable per time increment 
in selecting At, lb/lb 

Molecular weight of component K. K = I and 2 
Temporary storage variable for W 

Total weight of active molecular seive sorbents, lb 
Total weight of molecular sieve sorbents, lb 
Total weight of desiccants, lb 
| W for bed I , 2, 3 and 4, respectively 
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FORTRAN Algebraic 


Des cr i pt i on 


X 


x 


Hole fraction of 
refers to CC^ in 

and K = 2 refers 


component k in gas stream k = I 
molecular sieve bed gas stream, 

to in desiccant bed gas stream 


Distance from moelcular sieve bed end, ft 


Y 


Any of bed properties, T , T , W, , T , T 

S X K C C| 


Subs cr i pts 
b Bulk 


c 


Coolant 


g Gas stream 

i Inlet 

k Component k 

M Radial location index f or sorbent interior nodes 

N Axial location index 

s Surface of sorbent 

s Sorbent 

t At time t 

v Vo 1 ume 

x Heat exchanger 


Supe rs cr i pts 

* Equilibrium quantity 
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SECTION 6 

GENERAL DESCRIPTION 


INTRODUCTION 

The AiResearch composite sorbent bed program S9960 (Part I of this report) 
was developed for analyzing vacuum-dump sorbent bed systems such as the RCRS 
(Regenerative Carbon Dioxide Removal System) for the Apollo Applications 
Program and the Airlock Program. More complicated systems are required for 
longer mission applications in which C02> or both must be saved. To 

accommodate more complex systems, program S9960 has been modified and expanded. 
The new program is identified as MAIN4B and will now accommodate A-bed/I^O - 

save-CC^-dump and A-bed/h^O-save-CC^-dump configurations as well as the orig- 
inal 2-bed/vacuum-dump configuration. A typical A-bed thermal-swing system 
that uses coolant is shown in Figure 6-1. 

Computational schemes of program MAIN4B are basically the same as those 
of program S9960, although modifications have been made and a number of new 
features added. These changes are described in Section 7, Technical Descrip- 
tion. 

The most significant new feature of program MAIN4B is prediction of the 
effects of coadsorption of water, CC^, oxygen, and nitrogen on the system 

beds. The gradual buildup of water on the CO^ removal bed has a pronounced 

effect of lowering the adsorption efficiency of that bed. Methods have been 
incorporated into MAIN4B to quantitatively predict this coadsorption effect. 
Also important is that coadsorption of atmospheric gases, oxygen and nitrogen, 
leads to loss of the gases overboard from a vehicle when vacuum-dump systems 
are employed. The rate of loss of these gases is estimated as a function of 
process conditions. 

PROGRAM INPUT 

The input to MAIN4B is by means of eleven namelists. The lists include 
initial conditions, bed sizes, mass and heat transfer coefficients, etc. 
However, equilibrium data of various sorbate-sorbent pairs are all contained 
in subroutines EQPWT and FC0AD in the form of data statements. These may 
have to be changed if better data become available. 

PROGRAM OUTPUT 

Printed pages are the only output from the program. The output provides 
the fo 1 lowing: 

(a) Bed size 

(b) Estimated overboard gas losses 


72-8786 

AIRESEARCH MANUFACTURING COMPANY P3ge -1,23 . 

Los Angeles. California 




<NJ 

to 



on 

LU 

co 





72 


AIRESEARCH MANUFACTURING COMPANY 
Los Angetes. California 


ACCUMULATOR 


TO CABIN 


NASA CR-I 12098 


CM 

m 

o 

on 



B 


in 

>- 

co 


CD 

C 

*5 

CO 


ru 

B 

L 

a) 

-C 

H- 


“O 

a) 

CQ 

I 

^r 


fO 

o 


. Q_ 
>- 


O 

a> 

u 

3 

CD 



8786 
e 124 






NASA CR-I I 2098 


( c) Tempe ra tures 

(d) Sorbate loadings 

(e) Average sorbate loadings 

( f ) Average adsorption/desorption rates 

(g) Heat provided by electric heater and coolant 

( h) Sorbate partial pressures 

(i) Desorption pressures 

(j) CO^-accumu lator pressure and volume 

The bed sizes and overboard gas losses are printed again after bed sizes 
are adjusted to account for water poisoning effects. 

PROGRAM OPTIONS 

Three categories of program options are listed below. 

System Options 

(a) 2-bed-vacuum-dump 

(b) 4-bed-H 2 °-save-C0 2 -dump 

(c) 4-bed-H 2 0-C0 2 -save 
Water-Poisoning Effects 

(a) Degree of poisoning known 

(b) Degree of poisoning to be found by the program and bed sizes 
adjusted accordingly 

Individual Sorbent Bed Options 

(a) Isothermal operation with the bed temperature specified 

(b) Adiabatic operation 

(c) Thermal swing operation with hot and cold coolant 

(d) Thermal swing operation with an electric heater 

(e) Different sorbent and bed properties for different axial nodes 

(f) Desorption pressure specified as a function of time for up to 
three axial locations 
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( g) Desorption bed outlet pressure computed from vacuum duct and pump 
character is t i cs 

(h) Desorption bed outlet pressure computed from input pump characteristics 
and CO 2 accumulator pressure. 

(i) Use of a constant pressure type C^-accumu 1 ator 

(j) Use of a constant volume type COg-accumu 1 ator 
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TECHNICAL DESCRIPTION 


INTRODUCTION 

The technical description of program MAIN4B includes only the new features 
which have been added to program S9960. Basic heat and mass transfer models 
used in the program were described in Part I of this report. 


VACUUM DUCT CHARACTERIZATION 

In program S9960, an empirical correlation between duct inlet pressure 
and throughput was used to predict bed outlet pressures during desorption. As 
the correlation was based on conditions which are not universally valid,a gener- 
ally applicable method was developed for the new program, MAIN4B. 


• In the modified analysis, the boundary condition is treated in a more 
general and rigorous fashion. Volumetric flow at the outlet face of the bed 
is calculated from pump displacement and flow conductance of the vacuum duct 
by 


S 


S P C 

S + C 
p 


(7-1 ) 


where S = volumetric flow rate at the bed outlet, liters/sec 

5^ = pump displacement, a function of pump inlet pressure, liters/sec 
C = duct conductance, liters/sec 
The duct conductance is calculated by 


C = 3.269 x 10 



(7-2) 


where 


P = average duct pressure, torrs 

3 V 

D = duct diameter, cm 
L = duct length, cm 
M = molecular weight 
T = temperature, °K 
T| = viscosity, poise 
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The characteristics of the vacuum pump used in Airlock Regenerative 
Carbon Dioxide Removal System qualification tests are used in the DESORB sub- 
routine. The data statements character i zi ng the pump can be easily changed 
for different pumps. In the case of space vacuum, the pump displacements can 
be set to arbitrarily large quantities to simulate the almost unlimited capacity 
of space. The duct diameter and length set in DES0RB can also be changed for 
different configurations. 


PUMPING INTO A CO -ACCUMULATOR 


For a CO^-save system, MAIN4B allows the user to specify pump character- 
istics in the form of displacements vs pressure ratios - VPUMP vs PUMP. The 
line pressure drop is neglected in this case and the boundary condition used 
for the bed outlet is 



where 


f = void f racti on 


A = cross-sectional area of bed 

F = bed resistance defined in Part I of this report 
p = pressure, mm Hg 
X = axial distance, ft 
Vp = pump displacement, (cu ft)/hr 


ENERGY EQUATION FOR HEAT EXCHANGER CORE METAL WITH EMBEDDED ELECTRIC HEATER 


Program MAIN4B allows for the use of electric heaters embedded in heat 
exchanger metal. The new energy equation incorporating the heater is 


(r 

X 

1- 

^0 

_ a_ 1 

O' 

— 1 

\ P* 

■ p x/ at 

ax 1 

{ x ax / 


h /t - T \ + h (l 

.. xg ^ g xj xc l c 

where the heat source Q v is the heater capacity in 
WATER POISONING OF SORBENT 



Btu/(cu ft 


(7-4) 

of HX metal ) 


Effects of the poisoning of molecular sieve sorbents 5A and |3X by water 
are shown in Figures 7-1 and 7-2. These data are set up in subroutine FC0AD, 
in the form of H 2 O loading vs CO 2 capacity as a fraction of dry sorbent capacity. 
Expansion of the built-in data to include coadsorption data for other sorbents 
can be easily done whenever such data become available. 
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OVERBOARD GAS LOSSES 

Overboard gas losses are estimated by assuming that, for molecular sieve 
sorbents 5A and 1 3 X the percentage reduction in capacity due to water poison- 
ing is the same for CO 2 , Ng and Og. 

MAIN PROGRAM MAIN4B 

The main program MAIN4B was written for a typical C^-h^O-save thermal 

swing 4-bed system, depicted in Figure 6 - I . A logic diagram of the program 
is shown in Figure 7-3. The program first determines the amount of water 
accumulated in each bed during the first NCT| cycles. 

In the input data, NDXM and NDXMAC for each bed are selected so that the 
CO 2 sorbent nodes which may potentially be poisoned in NCTI cycles are assigned 

as desiccant nodes. This results in a desiccant section greater, and a CO 2 - 
sorbent section smaller, than the actual sizes. The program is run for NCT| 
cycles to let water accumulate in the back end of the des i ccant ' sec t i on, which 
in actuality is the front end of the CC^-section. This method predicts slightly 

less than actual performance of the CC^-removal bed. However, in the first 

half of the run, i.e., for the first NCT| cycles, only the desiccant bed per- 
formance is of primary interest, and an approximate simulation of the CO 2 bed 

should suffice in estimating bed poisoning. 

At the end of the NCT | cycles, during which period the accumulation of 
water in the front part of the CC^-bed has been established, the effective dry 

sorbent quantity for C 0 2 adsorption is found for each desiccant node, using 

the data presented in Figures 7 - I and 7-2. The total of all these equivalent 
dry sorbent weights is added to the CC^-sorbent section by resetting NDXM and 
NDXMAC. In case a non-integral number of desiccant nodes resu 1 ts, desiccant 
densities are adjusted to keep the total weight unchanged. Mass diffusivity, 
mass transfer coefficient and heat of adsorption (DIF, GK, DH) for the reassigned 
nodes are set to those of node No. | . 

After the resetting of the beds, the program is run for additional NCT2 
cycles to establish the CO 2 removal performance of the bed with the degree of 
poisoning established in the first stage of the run. NCT 2 is selected just 
large enough to give a stabilized solution. 

In Figure 7-3, the 4-bed performance prediction is performed by the opera- 
tions enclosed in the broken-line rectangle, which are shown in the right hand 
portion of the figure. 
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SECTION 8 
USAGE 


PROGRAM INPUT 

All data required for program execution are inputted via eleven namelists 
The following paragraphs describe the function of each namelist and define 
parameters/variables in, the namelists. 

Function of Various Namelists 

Parameters defining the system and execution mode, common to all the 
beds, are contained in the namelist 'MAIN'. These include, among others, 
molecular weights of sorbates, half-cycle time, C 02 _ accumu lator volume, and 

number of cycles to be run before the effect of water-poi son ing will be 
eva 1 uated. 

Initial conditions, gas flow rates, P and P for each bed are included 

N 2 °2 

in namelists 'BIM', 'B2M', B3M' , and ' B4M 1 , respectively. 

Desiccant bea characteristics, such as bed and sorbent sizes, various 
areas, sorbent-type used for each node, desorption mode to be used, etc., 
make up the namelist ' DB' . 

Data characterizing desiccant bed mass and heat transfer processes , are 
included in 'DBA' for the adsorption half-cycle and 'DBD' for the desorption 
hal f-cycle. 

Similarly, corresponding data for the molecular sieve beds are contained 
in the namelists 'MB', 'MBA' and 'MBD' 

Input Variable Lists and Definition 

I . Namel i st MAIN 

Fortran Symbol Def i n i t i on 

WM( 2) 


CYCLE 


DTMAX 


WI 


A1RESEARCH MANUFACTURING COMPANY 

los Angeles. California 



Adsorbate molecular weight; eg., 

WM( I) = (C0 2 ), WM( 2 ) = I8(H 2 0) 

Cycle time per one adsorption or one 
desorption, period, hr 

Maximum allowable time step size, usually 
0.01 hr for isothermal analysis and 0.005 
hr for non i sothe rma 1 analysis 

Maximum loading change allowable per time 
increment in selecting At, Ib/lb 
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TI 

Maximum temperature change allowable per 
time increment in selecting At, °F 

PC02C 

Initial CO 2 partial pressure in cabin, mm Hg 

V0LCAB 

Cabin volume for atmosphere, cu ft; use 
V0LCAB =10 } for constant PC02C 

RC02C 

Rate of C0 ? generation in cabin, lb C0„ 
per hr 

NPRINT 

Integer control variable which determines 
frequency of printout occurrence; e.g., if 
NPRINT - 2, printout occurs after every two 
time steps 

NDTC0N 

If NDTC0N = 1 , At will be selected such 
that AT = TI, AW = WI for time step; if 
NDTC0N = 2, AT's as set in program will be 
used 

NTEHP 

Integer control variable; if NTEMP = 0, 
isothermal analysis; the energy equations 
are ignored, and the bed temperature is set 
equal to TCIN. If NTEMP £ 0, non i sothe rma 1 

ana lysis 

TGC 

Cabin temperature, °F 

PAC 

Cabin pressure, mm Hg 

PH20C 

Cabin p n , mm Hg 

TGHX 

c 

Maximum temperature allowable for CO^-beds 

inlet gas, if the temperature is exceeded, 
a gas cooler will be employed to lower the 
temperature to TGHX. 

PC02A 

COg accumulator pressure, for a fixed 
volume type,' psia 

VC02A 

, CO 2 accumulator volume for a fixed pressure 
type, cu ft 

SABC02 

COp flow-rate to Sabatier reactor, lb CC^/hr 

TC02A 

CO 2 accumulator temperature, °F 
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KBED(4) Index indicating whether a bed exists. 

E.g., if only bed 2 exists, KBED = 0, I, 

0 , 0 ' 

TIMEDS If TIMEDS<CYCLE, heat is available only 

during TIMEDS of the desorption half-cycle, 
beyond TIMEDS hot coolant, electric heater 
will be shut off. 


NCTl Total number of complete adsorption-desorp- 

tion cycle calculations desired before 
effects of bed-poisoning will be assessed 
and bed sized adjusted accordingly to pre- 
dict bed performance. 

N ST I Cycle at which print-out will be started 

for the aforementioned run. 

NCT2 Total number of complete adsorption- 

desorption cycle calculations desired after 
bed adjustments for poisoning. 

NST2 Cycle at which p r i nt-out w i 1 1 be started 

for the run with adjustments for poisoning. 

2 . Name list B I M 

Fortran Symbol Definition 


PA 1 

Bed No. 1 

total pressure, mm Hg 

TSO 1 ( 20) 

Bed No. 1 

initial sorbent temperature, °F 

TCO 1 ( 20) 

Bed No. 1 

initial coolant temperature, °F 

TX0 1 ( 20) 

Bed No. 1 

initial HX metal temperature, °F 

Wl (4,20) 

Bed No. 1 initial sorbate loading, 1st 
subscript denoting sorbent interior radial 
nodes; 2nd subscript denoting axial nodes; 
lb sorbate/lb dry sorbent. 

GMR 1 

Bed No. 1 

process gas flow rate, Ib/hr 

GMWI 

Bed No. 1 

process gas molecular weight 

PN2 1 

Bed No. 1 

N 2 partial pressure, mm Hg 

P02 1 

Bed No. 1 

0 partial pressure, mm Hg 
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3. Name list B2M 
Fortran Symbol 
PA2 

TS02(20) 
TC02( 20) 
TX02(20) 

W2 (4,20) 


GMR2 

GHW2 

PN22 

P022 

4. Name list B5M 
Fortran Symbol 
PA3 
TS03 
TC03 
TX03 
W3 


GMR3 

GMW3 

PN23 

P023 


Def i n i t i on 


Bed No. 2 total pressure, mm Hg 

Bed No. 2 initial sorbent temperature, °F 

Bed No. 2 initial coolant temperature, °F 

Bed No. 2 initial HX metal temperature, °F 

Bed No. 2 initial sorbate loading, 1st 
subscript denoting sorbent interior radial 
nodes; 2nd subscript denoting axial nodes; 
lb sorbate/lb dry sorbent. 

Bed No. 2 process gas flow rate, lb/hr 

Bed No. 2 process gas molecular weight 

Bed No. 2 N^ partial pressure, mm Hg 

Bed No. 2 0 2 partial pressure, mm Hg 


Def i n i t ion 


Bed No. 3 total pressure, mm Hg 

Bed No. 3 initial sorbent temperature, °F 

Bed No. 3 initial coolant temperature, °F 

Bed No. 3 initial HX metal temperature, °F 

Bed No. 3 initial sorbate loading, 1st 
subscript denoting sorbent interior radial 
nodes, 2nd subscript denoting axial nodes, 
lb sorbate/lb dry sorbent. 

Bed No. 3 process gas flow rate, lb/hr. 

Bed No. 3 process gas molecular weight. 

Bed No. 3 N£ partial pressure, mm Hg. 

Bed No. 3 0^ partial pressure, mm Hg. 



AIRESEARCH MANUFACTURING COMPANY 

Los Angeles, California 


72-8786 
Page 136 


NASA CR-I I 2098 


5 . Name list B4M 


Fortran Symbol 

Def i n i t ion 

PA4 

Bed No. 4 adsorption cycle total pressure, 
mm Hg 

TS04 

Bed No. 4 initial sorbent temperature, °F 

TC04 

Bed No. 4 initial coolant temperature, °F 

TX04 

Bed No. 4 initial HX metal temperature, °F 

W4 

Bed No. 4 initial sorbate loading, 1st 
subscript denoting sorbent interior radial 
nodes, 2nd subscript denoting axial nodes; 
lb sorbate/lb dry sorbent. 

GMR4 

Bed No. 4 process gas flow rate, Ib/hr. 

GMW4 

Bed No. 4 process gas molecular weight. 

PN24 

Bed No. 4 adsorption cycle N^ partial 
pressure, mm Hg. 

P024 

Bed No. 4 adsorption cycle 0^ partial 
pressure, mm Hg. 

Name list DB 


Fortran Symbol 

Def i n i t ion 

ABED (20) 

Sorbent bed cross-section area normal to 
flow of process gas, sq ft 

AVC (20) 

Primary heat exchanger plate area per unit 
volume of coolant held up in HX, sq ft/ 

( cu ft) 

ASX (20) 

Heat exchanger primary area per unit volume 
sorbent bed, sq ft/(cu ft) 

AGX (20) 

Identical to ASX 

AVX (20) 

Primary heat exchanger plate area per 
unit volume of heat exchanger core metal, 
sq ft/(cu ft) 

RH0G (20) 

Gas density, lb/(cu ft) 
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RH0SB (20) 
RH0S (20) 
RH0C (20) 
RH0X (20) 
CPG (20) 

CPC (20) 
CPX (20) 
CPP (20) 

DX 

NPSET( 3) 
NDR4 

NDXMAC 


NBC0UT 


NDX I 
NDXM 


Sorbent bulk density, lb/(cu ft) .... 

Sorbent particle density, lb/(cu ft) 

Coolant density, lb/(cu ft) 

Heat exchanger metal density, lb/(cu ft) 

Specific heat of the process gas, Btu/ 

( 1 b)( °F) 

Coolant specific heat, Btu/(lb) (°F) 

Heat exchanger specific heat, Btu/(°F)(lb) 

Specific heat of dry sorbent, Btu/(lb)(°F) 

Axial node dimension, ft 

Denotes nodes to which vacuum is applied 

Integer denoting total number of radial 
sorbent pellet nodes ( interior 'nodes) 

Integer denoting number of active molecular 
sieve nodes, i.e., (NDXM - NDXMAC) represents 
the number of molecular sieve nodes which 
have been inactivated by water poisoning 

Integer control variable; NBC0UT = I, 
vacuum duct is simulated; NBC0UT = 2, 
pressures are set as functions of time at 
nodes NPSET( l~3) ; NBC0UT = 3, 4, C0 2 save 

system with pump characteristics inputted; 
fixed volume C0 2 -accumulator used for 

NBC0UT =3,fixed pressure accumulator for 
NBC0UT =4 

Integer denoting total number of axial nodes 

Integer denoting total number of modecular 
sieve nodes 


N0G- Node to which coolant is added 

P0UT (10) J I 0 pa i rs of exit pressure vs time data to 

TIMET ( 10) / be used if NBC0UT = 2; POUT = vacuum end 

/manifold pressures (mm Hg), TIMET = times 
) (hr) 
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PUMP (10) ] 

VPUMP (10) - j 

) 

1 10 pairs of pressure ratios vs volumetric 
[ displacements to be used for NBC0UT - 3 or 
7 PUMP = pump outlet to pump inlet pressure 
1 ratio; VPUMP = volumetric displacements, 

| cfm. 

IDS0RB (20) 

Index identifying sorbent used for each 
node ; . 1 = 5 A, 2 = S . G. , 3 = 1 3X, 4 = 4 A, 
5 = 3A. 

CPL (2) 

Specific heat of adsorbed sorbate, Btu/ 

(°F) (lb) 

DP (20) 

Sorbent diameter, ft. 

Name list DBA 


Fortran Symbol 

Definition 

HXG (20) 

Heat transfer coefficient, heat exchanger 
to process gas, Btu/(sq ft) (°F) (hr) 

HXS (20) 

Heat transfer coefficient, heat exchanger 
to sorbent, Btu/(sq ft)(hr)(°F) 

HXC (20) 

Heat transfer coefficient, heat exchanger 
to coolant Btu/(sq ft)(hr)(°F) 

HSG (20) 

Heat transfer coefficient, sorbent to gas, 
B tu/( hr ) ( s.q ft)(°F) 

SK (20) 

Effective sorbent thermal conductivity, 
Btu/(hr) (sq ft) (°F/ft) 

TKX (20) 

Heat exchanger metal thermal conductivity, 
TKX (K) denotes that between node K- 1 and 
node K, Btu/(hr)(sq ft)(°F/ft) 

DH (20) 

Differential heat of adsorption, Btu/(lb 
adsorbed) 

DIF (20) 

Internal diffusivity, sq ft/hr 

GK (20) 

External surface mass transfer coefficient, 
1 b-mol /( hr) ( sq ft)(mm Hg) 

TCIN 

Coolant inlet temperature, °F 

HTR (20) 

Electric heater power for each node, BTU/hr 
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TMAX 

Maximum 

metal 

temperature 


will be 

shutt 

off, 

°F. 

WC 

Coo 1 ant 

f 1 ow 

rate, 

lb/hr. 


8. Namelist DBD 


Parameters characterizing various transfer processes in desorption cycles 
are contained in this namelist. The list is identical to DBA and will be 
given below without definition. 

HXG (20), HXS( 20) , HXC(20), HSG(20), SK (20), TKX (20), DH (20), 

DIF (20), GK (20), TCIN, HTR (20), TMAX, WC 

9. Name list MB 

This namelist comprises the characteristics of C02 beds 2 and 4. 

The list is identical to DB and will be given below without definition. 

ABED (20), AVC (20), ASX (20), AGX (20), AXC ( 20) , AVX (20), RH0G (20), 
RH0SB (20), RH0S (20), RH0C (20), RH0X (20), GPG (20), CPC (20), 

CPX (20), CPP (20), DX, NPSET (3), NDR4, NDXMAC , NBC0UT, NDXl, 

NDXM , N0G , P0UT (10), TIMET (10), PUMP (10), VPUMP(IO), IDS0RB(2O), 

CPL (2), DP (20) 

I 0. Namel i s t MBA 


This namelist comprises the data characterizing various transport 
processes for CO^ beds 3 and 4 adsorption cycles. The list is identical to 
DBA and will be given without definition. 

HXG (20), HXS (20), HXC (20), HSG (20), SK (20), TKX (20), DH (20), 
DIF (20), GK (20), TCIN, HTR (20), TMAX, WC 

I I . Name list MBD 


This list is equivalent to MBA for desorption cycles. 

HXG (20), HXS (20), HXC (20), HSG (20), SK (20), TKX (20), DH (20), 
DIF (20), GK (20), TCIN, HTR (20), TMAX, WC' 

EXECUTION CHARACTERISTICS 

Storage Requirement 

The present program requires a 28,400 word storage on the Univac 1108 
computer. 
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Execution Time 

With the Univac 1108 computer and using a total of 20 nodes for all 
four beds, the ratio of real time to computer time is roughly 130 to I. 

Accuracy/Val idi ty 

The single bed program S9960 was tested on the regenerable CO^ removal 

systems for AAP and Airlock applications and has proved to be quite accurate 
in performance predictions. It is reasonable to assume that the expanded 
version, MAIN4B, should be able to predict the performance of a A-bed-CC^- 
h^O-save system equally well, as the basic models employed in both pro- 
grams are identical. 

Program Limitations 

Although the present program was intended to be as general as feasible, 
the basic system configuration as shown in Figure 6-1 was assumed in writing 
the main program MAIN4B. Should the coolant hook-up be different from the 
arrangement depicted in the schematic, the main program must be modified. 

The work involved should be minimal, however. 

Another limitation is that the program uses the built-in equilibrium 
data of subroutine EQ.PWT, which represents the best data available at AiResearch 
at the moment. As better data become available, the subroutine has to be 
modified. Also pure and pure 0 2 data are employed by the program in esti- 
mating overboard gas losses. Should expanded - 0 2 coadsorption data become 
available, some modifications will be required in the estimation. 
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SECTION 9 
EXAMPLE RUNS 


INTRODUCTION 

Two example runs are presented in this section: a performance prediction 

for a 4-bed-C02~H20 save system; and demonstration of the program to account 

for the coadsorption of C0 2 with h^O. Program input and output data are 

i nc 1 uded . 

Example run no. I is presented on page 144 and example run no. 2 is 
presented on page 165. 
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EXAMPLE RUN NO. I 

The first example to be presented is the performance prediction for a 
4-bed-C02“H20 save system. This example is very similar to the one shown 

in Figure 6-1, except that temperature swings of the CC^ beds are controlled 

electrically, and an intercooler is used to precool the CO^-bed inlet gas 

stream to 50°F. 

Input data required are given as Figure 9-1. These data are printed by 
the program in the namelist format for input data checking. It should be 
noted that since no coolant is used in the sorbent beds of the present system, 
coolant-related data are unimportant for the run. As vacuum dumping is not 
used for sorbent regeneration, there should be no overboard gas losses, and 

- 2 0 

so PN 2 1 , P02I, PN22, P022, etc., are set to 10 . (Setting these to zero 

causes some problems.) 

After the printing of the input data, the program then gives sorbent 
quantities and estimated gas losses for each bed, as shown in Figure 9-2. 

The program is run with NCTl=6 and NSTl=6 and printing starts at the 
6th cycle. The print-out at the end of the second half of the 6th cycle is 
presented in Figure 9-3 for all four beds. Beds 3 and 4 have been adsorbing 
and beds I and 2 have been desorbing. A constant pressure type CO^-accumu 1 ator 

is used for the system and the accumulator volume at the moment is printed 
with bed 2 outputs. 

Since NCT2=0 for the run, the program stops at this point. 
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tMAIN 
WM r 

CYCLE = 
dtnax = 

WI = 

ri = 

PC02C = 
VOLCAB = 
RC02C = 
NPRINT = 
NOTCON =' 
NTEMP = 
TGC = 

PAC = 

PH20C 
TGHX = 
PC02A = 
VC02A 
SABC02 = 
TC02A = 
KBED = 
TIMEDS = 
NCT 1 = 

NST l 

NCT2 = 
NST2 
SEND 
SB1M 
PA 1 

TSOI = 


TC01 


TXQ1 


W 1 


. 440U0000+02 . 

. 16000300+01 , 
.15000000-01. 
,49999999-02. 
. 10000000 + 02 . 

. 75999999+01, 
.30000000+03, 
.55000000+00, 
100 ,' 
1. 
1, 

.70000000+02, 
.76000000+03, 
.92000000+01, 
.50000000+02, 
•25000000+02, 
.60000000 + 01 . 
.55000000+00, 
.10000000+03, 
1 # 

. 20000000 + 01 , 

6 , 

6 , 

1, 

1, 


.76000000+03, 

.10000000+03 

.10000000+03, 

.10000000+03, 

• 00000000+00 

. 00000000+00 

. 00000000+00 

. 00000000+00 

. 00000000+00 

. 00000000+00 

.ooooouoo+oo 

.10000000+03 

.10000000+03 

.10000000+03 

. 00000000+00 

. 00000000+00 

.69999999-01 

.69999990-01 

.69999998-01 

.69999998-01 

.69999998-01 

.69999998-01 

.09999998-01 

.09999998-01 

.09999998-01 

.09999998-01 

.09999998-01 

.09999998-01 

.09999998-01 

.09999998-01 

.09999998-01 

.09999998-01 


. 18000000 + 02 , 


1* 


.10000000+03 

.10000000+03, 

.10000000+03, 

. 00000000+00 

. 00000000+00 

. 00000000+00 

. 00000000+00 

. 00000000+00 

.00000000+00 

.00000000+00 

•10000000+03 

.10000000+03 

.10000000+03 

. 00000000+00 

.00000000+00 

.69999996-01 

,69999998-01 

.69999998-01 

.69999998-01 

.69999998-01 

.69999998-01 

,69999998-01 

.69999998-01 

.69999998-01 

.69999998-01 

.69999998-01 

.69999998-01 

.69999998-01 

.69999998-01 

.6999999B-01 

.69999998-01 


.10000000+03, 

.10000000+03, 

. 00000000 + 00 , 

. 00000000+00 

. 00000000+00 

. 00000000+00 

. 00000000+00 

. 00000000 + 00 , 

. 00000000+00 

. 00000000+00 

.10000000+03 

.10000000+03 

.00000000+00 

. 00000000+00 

. 00000000+00 

.69999998-01 

.69999998-01 

.69999998-01 

.69999998-01 

.69999998-01 

.69999998-01 

.69999998-01 

,69999998-01 

.69999998-01 

.69999998-01 

.69999998-01 

.69999998-01 

.69999998-01 

.69999998-01 

.69999998-01 

.69999998-01 


F i .lure 9- I . 


Input Onto for Example Run No. I 
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.10000000+03 
.10000000+03 
. 00000000+00 
. 00000000+00 
. 00000000+00 
. 00000000+00 
. 00000000+00 
. 00000000+00 
. 00000000+00 
. 00000000+00 
.10000000+03 
. 10000000+03 
. 00000000+00 
. 00000000+00 
. 00000000+00 
.69999998-01 
.69999998-01 
.69999998-01 
.69999998-01 
,69999998-01 
,69999998-01 
.69999998-01 
.69999998-01 
.69999998-01 
.69999998-01 
.69999998-01 
.69999998-01 
.69999998-01 
.69999998-01 
,69999998-01 
.69999998-01 
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. 69999998-01 , 

. 69999998-01 . 

.69999998-01, 



.69999998-01, 

. 69999998-01 > 

. 69999798-01, 



.69999998-01, 

.69999998-01, 

.69999998-01, 



.69999998-01, 

.69999998-01* 

. 69999998-01, 

GMKl 

= 

. 12500000+03, 



GNW1 

= 

.29000000+02, 



PN21 

= 

.10000000-19, 



P021 

= 

. 10000000-19, 



SEND 





%B2M 





PA 2 

= 

. 76000000+03, 



TS02 

= 

.37500000+03, 

.37500000+03, 

.37500000+03, 



.37500000+03, 

.37500000+03, 

.37500000+03, 



.37500000+03. 

.37500000+03* 

.3751)0000 + 03, 



.37500000+03, 

.37500000+03, 

.37500000+03, 



.37500000+03, 

.37500000+03, 

.37500000+03, 

TC02 

Z 

.00000000+00, 

.00000000+00, 

. 00000000+00, 



.00000000+00, 

•oooooooo+oo. 

.00000000+00, 



.000nooo0+00, 

.00000000+00* 

.00000000+00, 



. 00000000+00 , 

•oooooooo+oo. 

.00000000+00, 



.00000000+00, 

.00000000+00, 

. 00000000+00 , 

TX02 

= 

.37500000+03, 

.37500000+03, 

.37500000+03, 



.37500000+03, 

.37500000+03, 

.37500000+03, 



.37500000+03, 

.37500000+03, 

.37500000+03, 



.37500000+03, 

.37500000+03. 

.37500000+03, 



.37500000+03, 

.37500000+03, 

.37500000+03, 

W2 

z 

.10000000-01, 

.10000000-01, 

. 10000000-01, 



.10000000-01, 

.10000000-01* 

•10000000-01 , 



.10000000-01, 

.10000000-01, 

. 10000000-01, 



.10000000-01, 

.10000000-01, 

•10000000-01. 



.10000000-01, 

.10000000-01, 

.10000000-01, 



.10000000-01, 

.10000000-01, 

. 10000000-01, 



.10000000-01, 

.10000000-01, 

.10000000-01, 



.10000000-01, 

.10000000-01, 

.10000000-01, 



.10000000-01, 

•10000000-01, 

. 10000000-01, 



.10000000-01, 

.10000000-01. 

.10000000-01, 



.10000000-01, 

.10000000-01, 

. 10000000-01, 



.10000000-01 , 

.10000000-01. 

.10000000-01, 



.10000000-01. 

.10000000-01, 

.10000000-01, 



.10000000-01 . 

.10000000-01, 

.10000000-01, 



•10000000-01, 

.10000000-01, 

. 10000000-01, 



.10000000-01 , 

.10000000-01, 

.10000000-01, 



•10000000-01, 

.10000000-01, 

. 10000000-01, 



.10000000-01, 

.10000000-01, 

.10000000-01. 



•10000000-01, 

.10000000-01, 

•10000000-01, 



.10000000-01, 

.10000000-01, 

,10000000-01. 

GMR2 

s 

.12500000+03, 



GMW2 

z 

.29000000+02, 



PN22 

S 

.10000000-19, 



P 022 

= 

.10000000-19, 



SEND 





JB3M 





PA3 

= 

.76000000+03, 



TS03 

z 

.10000000+03, 

.10000000+03, 

. 10000000+03, 



.10000000+03, 

.10000000+03, 

.10000000+03, 



.10000000+03, 

.10000000+03, 

. 00000000+00, 



.00000000+00, 

.oooooooo+oo, 

.00000000+00, 



.00000000+00, 

.00000000+00, 

. oooooooo+oo, 

TC03 

s 

.00000000+00 , 

.oooooooo+oo* 

.00000000+00, 



. OOOuOOOO + GO . 

.00000000+00, 

.00000000+00. 


Figure 9-1. (Continued) 
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. 69999998 - 0 '. . 
. 69999998-01 . 
. 69999998 - 01 . 
. 69999998 - 01 , 


. 37500000 + 03 . 
.37500000 + , , 3 , 
. 37500000 + 03 . 
. 37500000 + 03 . 
. 00000000+00. 
. 00000000 + JO , 
. 00000000 + 00 . 
. oooooooo+oc , 
. 00000000 + 00 . 
. noooooon+no . 

. 37500000 + 03 . 
. 37500000 + 03 , 
. 37500000 + 03 , 
. 37500000 + 03 , 
. 00000000+00 , 
. 10000000 - 01 , 
. . 10000000 - 01 , 
. 10000000 - 01 , 
. 10000000-01 . 
. 10000000-01 , 
. 10000000 - 01 , 
. 10000000 - 01 , 
. 10000000-01 , 
. 10000000-01 . 
. 10000000 - 01 , 
. 10000000 - 01 , 
. 10000000 - 01 , 
. 10000000 - 01 , 
. 10000000 - 01 , 
. 10000000 - 01 , 
. 10000000 - 01 , 
. 10000000 - 01 , 
. 10000000 - 01 , 
. 10000000 - 01 , 
. 10000000 - 01 , 


.10000000+03, 
.10000000+03, 
. 00000000 + 00 , 
. 00000000 + 00 , 
. 00000000 + 00 , 
. 00000000 + 00 , 
. 00000000 + 00 , 
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•oooooooo+do. .00000000+00, . ooooonoo+oo. ' . nnonoooo+uo 

• 00000000 + 00. .00000000 + 00. . OOiJOOOOO + OO » . 00000000 + 00 

• OOOOOOCO + OO , .00000000 + 00* .00000000 + 00. • 00 000 000 + 0 1 1 

TX03 = . 10000000+03, .10000000+03. .I0u00000+03. .10000000 +'.3 

.10000000+03, .10000000+03. .10000000+03, .10000000+03 

.10000000+03, .10000000+03, .00000000+00, .00000000+00, 

.00000000+00. .00000000*00* .03000000+00. .OOOOOOOO+OU 

•oooooooo+oo, .oooooooo+oo. .oooonooo+oo, .ooooonon+cui 

V3 = .69999990-01, .69999990-01, .69999998-01, .69999990-01 

.69999990-01. .69999990-01. .69999998-01, .69999998-01 

.69999998-01, .69999990-01, .69999990-01, .69999990-01 

.69999998-01. .69999990-01, .69999998-01. .69999998-01 

.69999998-01, .69999990-01, .69999990-01. .69999998-01 

.69999998-01, .69999990-01* .69999998-01, .69999998-01 

.69999998-01, .69999990-01, .69999998-01- . . 69999990-0 J, 

.69999998-01, .69999990-01, .69999998-01. .69999998-01 

.69999998-01, .69999990-01, .69999998-01* .69999993-01 

.69999998-01, .69999990-01* .69999990-01, .69999998-01 

.69999998-01* .69999990-01. .69999990-01* .69999998-01 

.69999998-01, .69999990-01* .69999998-01* .69999998-01 

.69999998-01, .69999990-01, .69999998-01, .69999998-01 

.69999998-01* .69999990-01* .69999990-01* .69999998-01 

.69999998-01* .69999998-01. .69999998-01, .69999998-01 

.69999998-01. .69999990-01* . 69999 990-01 , .69999998-01 

.69999998-01, .69999990-01, .69999998-01, .69999998-01 

.09999998-01. .69999990-01, .69999990-01, .69999998-01 

.69999998-01* . 69999990-01 > .69999998-01, .69999998-01 

.69999998-01. .69999990-01, .69999998-01, ,69999998-01 


GMR 3 

= 

. 12500000 + 03 , 




GMW3 

s 

. 29000000 + 02 . 




PN23 

= 

. 10000000 - 19 , 




P023 

= 

. 10000000 - 19 , 




SEND 






SB4M 






PA4 

= 

. 76000000 + 03 , 




TS04 

z 

. 10000000 + 03 , 

. 10000000 + 03 , 

. 10000000 + 03 , 

. 10000000+03 



. 10000000 + 03 , 

. 10000000 + 03 , 

. 10000000 + 03 , 

. 10000000+03 



. 10000000 + 03 , 

. 10000000 + 03 , 

. 10000000 + 03 , 

. 10000000+03 



. 10000000 + 03 , 

• 10000000 + 03 , 

. 10000000 + 03 , 

. 10000000+03 



. 10000000 + 03 , 

. 10000000 + 03 . 

. 10000000 + 03 , 

. 00000000+00 

TC04 

= 

. 00000000 + 00 , 

. 00000000 + 00 , 

. 00000000 + 00 , 

. 00000000+00 



. 00000000 + 00 , 

. 00000000 + 00 , 

. 00000000 + 00 , 

, 00000000+00 



. 00000000 + 00 * 

. 00000000 + 00 , 

. 00000000 + 00 , 

, 00000000+00 



. 00000000 + 00 * 

. 00000000 + 00 , 

. 00000000 + 00 , 

. 00000000+00 



. 00000000 + 00 * 

. 00000000 + 00 . . 

• 00000000 + 00 , 

. 00000000+00 

TXC4 

= 

. 10000000 + 03 , 

. 10000000 + 03 * 

. 10000000 + 03 , 

. 10000000+03 



. 10000000 + 03 , 

. 10000000 + 03 * 

. 10000000 + 03 , 

, 10000000+03 



. 10000000 + 03 , 

• 10000000 + 03 * 

. 10000000 + 03 , 

. 10000000+03 



. 10000000 + 03 , 

• 10000000 + 03 * 

. 10000000 + 03 , 

. 10000000+03 



. 10000000 + 03 , 

. 10000000 + 03 . 

. 10000000 + 03 , 

. 00000000+00 

W4 

z 

. 10000000 - 01 , 

. 10000000 - 01 * 

. 10000000 - 01 , 

, 10000000-01 



. 10000000 - 01 * 

. 10000000 - 01 * 

. 10000000 - 01 , 

. 10000000-01 



. 10000000 - 01 * 

. 10000000 - 01 * 

. 10000000 - 01 , 

. 10000000-01 



. 10000000 - 01 * 

. 10000000 - 01 * 

, 10000000 - 01 , 

, 10000000-01 



. 10000000 - 01 , 

. 10000000 - 01 , 

. 10000000 - 01 , 

, 10000000-01 



. 10000000 - 01 , 

. 10000000 - 01 , 

. 10000000 - 01 , 

. 10000000-01 



. 10000000 - 01 , * 

. 10000000 - 01 , 

. 10000000 - 01 , 

. 10000000-01 



. 10000000 - 01 , 

. 10000000 - 01 * 

. 10000000 - 01 , 

. 10000000-01 



. 10000000 - 01 , 

. 10000000 - 01 * 

. 10000000 - 01 , 

, 10000000-01 



. 10000000 - 01 , 

. 10000000 - 01 * 

. 10000000 - 01 , 

, 10000000-01 


Figure 9-1. (Continued) 
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•lOOnoOuO-Pl. 

.10000000-01, 

.10000000-01. 

,ioonooon-i:j 



.10000000-01# • 

. 10000000-01, 

. 10000000-01# 

. lOO.JOOOQ-tU 



.10000000-01# 

. lOQOOuuO-Ol , 

. 10000000-01. 

. IOOuOOOO-UJ 



.10000000-01# 

. 10000000-01, 

. 10000000-01 . 

. 10000000-til 



.10000000-01# 

. lOQOOi'IOO-Ol , 

.10000000-01# 

. 10000000-01 



. lOOGOOOO-Oi . 

. 10000000-01, 

. 10000000-01# 

. 10000000-0 ' 



.10000000-01 . 

. 10000000-01. 

.10000000-01# 

. luOOOOOO-Ui 



.10000000-01, 

.10000000-ni# 

. iorioonoe-oi. 

. lUOOOOOO-Ui 



. 10000000-01 . 

.10000000-01, 

. 10000000-01 , 

. 10000000-til 



.10000000-01 

.10000000-01, 

. 10000000-01, 

. lucooooo-ni. 

GMR4 

= 

•125U0000+03, 




GMW4 

= 

.29000000+02, 




PN24 


.10000000-19, 




P024 

= 

.10000000-19, 




SEND 






JDB 






ABED 

= 

. 10000000 + 01 # 

.10000000+01, 

. 10000000+01, 

. 10000000+01 



.10000000+01# 

.10000000+01, 

. 10000000 + 01 , 

,10000000+01 



•10000000+01# 

•10000000+01# 

. 10000 r ’00 + 01, 

. 10000000+01 



.10000000+01, 

.10000000+01, 

.10000000+01 , 

. 10000000+01 



.10000000+01# 

. 10000000+01# 

.10000000+01, 

. 10000000+01 

A VC 

= 

.00000000+00# 

.00000000+00# 

. ooooooon+oo , 

. 00000000+00 



.00000000+00# 

•oooooooo+oo# 

.00000000+00, 

. OuOOOOQO+GO 



.00000000+00# 

•oooooooo+oo# 

.00000000+00, 

. oooooooo+co 



. 00000000 + 00 # 

.00000000+00# 

. oooooooo+oo, 

.00000000+00 



.00000000+00# 

. 00000000+00# 

.00000000+00, 

. 00000000+00 

ASX 

Z 

.00000000+00 . 

.00000000+00# 

.00000000+00, 

. 00000000+00 



.ooodoooo+no# 

.00000000+00# 

.00000000+00, 

. 00000000+00 



.00000000+00, 

.oooooooo+oo# 

.00000000+00, 

. ooooooon+oo 



•00000000+00. 

.00000000+00# 

.00000000+00, 

.00000000+00 



.00000000+00, 

. oooooooo+oo# 

.00000000+00, 

. oooooooo+oc 

AGX 

= 

.00000000+00# 

.oooooooo+oo# 

.00000000+00, 

.00000000+00 



.00000000+00# 

.00000000+00# 

.00000000+00# 

. OOOOOOOO + IIO 



.00000000+00# 

•oooooooo+oo# 

.00000000+00, 

. 00000000+00 



.00000000+00, 

.oooooooo+oo# 

.oooooooo+oo, 

. 00000000+00 



.00000000+00, 

.00000000+00# 

,00000000+00, 

. 00000000+00 

AVX 

z 

.00000000+00. 

.00000000+00. 

.000001.100 + 00 # 

. oooooono+oo 



.00000000+00# 

. oooooooo+oo# 

.00000000+00# 

. oooooooo+oc 



.00000000+00, 

.00000000+00. 

.00000000+00# 

. 00000000+00 



.00000000+00# 

.00000000+00# 

,00000000+00# 

.00000000+00 



.00000000+00# 

.oooooooo+oo# 

•oooooooo+oo# 

. 00000000+00 

RHOG 

z 

.00000000+00, 

.oooooooo+oo# 

.00000000+00# 

. 00000000+00 



.00000000+00# 

.00000000+00. 

.00000000+00# 

. oooooooo+oo 



.00000000+00, 

•oooooooo+oo# 

.00000000+00 , 

. OOOOOOOO+OG 



.00000000+00# 

.oooooooo+oo# 

.00000000+00. 

.00000000+00 



. 00000000+00# 

. oooooooo+oo# 

.00000000+00, 

. 00000000+00 

RHOSB 

z 

.*5000000+02. 

.45000000+02# 

.45000000+02. 

.45000000+02 



.45000000+02# 

.45000000+02# 

.45000000+02# 

.45000000+02 



.45000000+02, 

.45000000+02# 

.00000000+00, 

, oooooooo+oo 



.00000000+00 . 

.00000000+00' 

,00000000+00# 

.oooooooo+oc 



.00000000+00, 

.oooooooo+oo# 

.00000000+00# 

,00000000+00 

RHOS 

2 

.64000000+02# 

.64000000+02# 

.64000000+02# 

.64000000*02 



.64000000+02, 

.64000000*02. 

.64000000+02, 

,64000000+02 



.64000000+02, 

.64000000+02# 

.64000000+02, 

.64000000+02 



. 64000U00+02 # 

.64000000+02# 

.64000000+02# 

.64000000+02 



.64000000+02, 

.64000000+02# 

.64000000+02, 

.64000000+02 

RHOC 

z 

•00000000+00# 

,00000000+00# 

.00000000+00, 

.00000000+00 



.00000000+00, 

.00000000+00# 

.00000000+00. 

.oooooooo+oo 



.00000000+00, 

.00000000+00# 

.00000000+00# 

.00000000+00 



.00000000+00, 

.oooooooo+oo# 

.00000000+00# 

.00000000+00 
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.00000000+00, 

.00000000+00, 

. ooooouoo+oo. 

HHOX 

= 

.490001100 + 03, 

.49000000+03, 

, 49000000+03, 



.49000000+03, 

. 49000000+03, 

. 490001100 + 03, 



.49000000+03, 

. 49000000 + 03,. 

.00000000+00. 



. OOOuOUOO+OO , 

.00000000+00* 

.00000000+00, 



. 00000000+00 , 

. oooooooo+oo. 

.OOOCOOOQ+OQ, 

CPG 


.23000000+00, 

- .23000000+00, 

.23000000+00, 



•23000000+00, 

.23000000+00* 

.23000000+00, 



.23000000+00, 

.23000000+00* 

.00000000+00. 



.00000000+00, 

.00000000+00* 

. 000001,00 + 00. 



•00000000+00, 

.00000000+00, 

.00000000+00, 

CPC 

= 

•00000000+00. 

•00000000+00, 

. 00000000+00, 



.00000000+00, 

. oooooooo+oo. 

. 00000000+00, 



.00000000+00, 

.00000000+00, 

. oooooooo+oo, 



.00000000+00, 

. oooooooo+oo. 

. 00000000+00, 



•ooouoooo+oo, 

.00000000+00, 

.00000000+00, 

CPX 

= 

.00000000+00, 

.OOQOQOOO+OO.' 

. 00000000+00 , 



.00000000+00. 

.00000000+00, 

. 00000000+00 , 



•00000000+00, 

.00000000+00, 

. cooooooo+oo , 



.00000000+00, 

.00000000+00. 

. oooooooo+oo, 



.00000000+00, 

. ooooouoo+oo. 

. 00000000+00 , 

CPP 

• 

.25000000+00, 

.25000000+00* 

.25000000+00, 



.25000000+00, 

.25000000+00, 

.25000000+00, 



.25000000+00, 

.25000000+00. 

.25000000+00, 



.25000000+00, 

.25000000+00, 

. 25(100000 + 00, 



.25000000+00. 

.25000000+00* 

.25000000+00, 

ox 

z 

•25000000+00, 



NPSET 

z 

9 

* 

9 

NDR4 

z 

2, 



NDXMAC 

z 

9 



NBCOUT 

z 

9 



NDXl 

z 

5, 



NDxM 

z 

t 



NOG 

z 

1 , 



POUT 

Z 

•00000000*00, 

.oooooooo+oo. 

.00000000+00. 



.00000000+00, 

.00000000+00, 

.00000000+00, 



.00000000+00, 

.oooooooo+oo. 


timet 

= 

•OOOuOOOO+OO, 

.00000000+00. 

. 00000000+00, 



.00000000+00, 

.oooooooo+oo* 

.00000000+00, 



.00000000+00, 

.00000000+00. 


PUMP 

= 

.00000000+00, 

.00000000+00. 

. 00000000+00, 



.00000000+00, 

.OOOOOOOO+OO, 

. 00000000+00, 



•00000000+00. 

• 00000000 + 00 , 


VPUMP 

s 

.00000,000+00, 

.00000000+00. 

.00000000+00, 



.00000000+00, 

.00000000+00. 

. 00000000+00, 



.00000000+00, 

.oooooooo+oo. 


IDSORB 

5 

3, 

3 . 

3, 



3, 

3 , 

3, 



3, 

3 . 

3 , 



3, 

3 , 

3 , 



3. 

3 . 

3 , 

CPL 

r 

.10200000+01, 

.10000000+01, 


DP 

S 

•64199999-02, 

.64199999-02, 

.64199999-02, 



.64199999-02, 

.64199999-02, 

.64199999-02, 



.64199999-02, 

. 64199999-02. 

,64199999-02, 



.64199999-02, 

.64199999-02, 

.64199999-02, 



.64199999-02, 

.64199999-02, 

.64199999-02, 

tEND 





SOB A 





NXG 

- 8 

•00000000+00, 

.oooooooo+oo* 

. 00000000+00, 


Figure 9-1. (Continued) 
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. OOQOOOQO + OIj . 
. 49000000 + 03 , 
. 49000000 + 03 , 
. 00000000 + ,, 0 . 
. 00000000 + 00 . 
. 00000000 + 00 , 
. 23000000 + 00 , 
. 23000000 + 01 / , 
. C.IOOOOOOO+OC . 
. 00000000 + 00 , 
. 00000000+00 , 
. 000000011 + 0 u > 
. 000 00 oc 0+00 , 

. 0 0 0 0 0 0 0 U + 0 0 , 
. 00000000 + 00 , 
.00000000 + 0 ( 1 , 
. Goooooon+cu , 
.00000000 + 0 !-. 
. 00000000 + 00 , 
. 00000000 + 00 , 
. 00000000 + 0 ), 
. 25000000 + 00 . 
. 25000000 + 00 , 
. 25000000 + 00 . 
. 25000000 + 00 . 
. 25000000 + 00 , 


. 00000000 + 00 , 

. 00000000 + 00 , 

. 00000000 + 00 , 

. 00000000 + 00 . 

. 00000000 + 00 , 

. 00000000 + 00 , 

. 00000000 + 00 , 

. 00000000 + 00 , 

3, 

3, 

3, 

3, 

3, 

.64199999-02, 

.64199999-02, 

.64199999-02, 

.64199999-02, 

.64199999-02, 


. 00000000 + 00 , 
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HXS 


HXC 


hSG 


SK 


TKX 


DH 


CK 


TCIN 

HTR 1 


TMAX 
WCC ' 
SEND 
SDBD 
HXG 


HXS 


.ooouuouo+no. 
. 00000000 + 00 , 
■ ooooo ji so+on. 
.ooouoooo+oo, 
• 00000000 + 00 , 
.ooouoooo+oo, 
. 00000000 + 00 , 
. 00000000 + 00 , 
•Qoouonoo+no, 
. 00000000 + 1 ) 0 , 
•OOOUOOOO+OO, 
. 00000000 + 00 , 
. 00000000 + 00 , 
. ooouoooo+oo , 
. 20000000 + 02 , 
. 20000000 + 02 , 
. 20000000 + 02 , 
. 00000000 + 00 , 
. 00000000 + 00 , 
. 00000000 + 00 , 
. 99999998 - 01 , 

.ooouaoua+oo , 
• 00000000 + 00 , 
. 00000000 + 00 , 
. 00000000 + 00 , 
. 90000000 + 01 , 
• 00000000 + 00 , 
. 00000000 + 00 , 
. 00000000 + 00 , 
. 14000000 + 04 , 
. 14000000 + 04 , 
. 14000000 + 04 , 
. 00000000 + 00 , 
. 00000000 + 00 , 
. 40000000 - 03 , 
. 40000000 - 03 , 
. 40000000 - 03 , 
. 00000000 + 00 , 
. 00000000 + 00 , 
• 10000000 - 02 , 
. 10000000 - 02 , 
. 10000000 - 02 , 
. 1001 ) 0000 - 02 , 
. 10000000 - 02 , 
• 00000000 + 00 , 
•ooouoooo+oo, 
. 00000000 + 00 , 
. 00000000 + 00 , 
. 00000000 + 00 , 
. 00000000 + 00 , 
. 40000000 + 03 , 
. 00000000 + 00 , 


. 00000000 + 00 , 

• 00000000 + 00 , 

. 00000000 + 00 . 

. 00000000 + 00 , 

. 00000000 + 00 , 

. 00000000 + 00 , 


. 00000000+00' 
. 00000000 + 00 , 
.0000000 o+oo, 
. 00000000 + 00 , 
. 00000000+00, 
. 00000000+00' 
. 00000000 + 00 ' 
. 00000000 + 00 ' 
. 00000000 + 00 ' 
. 00000000 + 00 ' 
. 00000000+00' 
.00000000+00, 
. OOQQOOOO + O0 , 
. 00000000 + 00 ' 
. 20000000 + 02 ' 
. 20000000 + 02 , 
. 20000000 + 02 , 
. 00000000 + 00 , 
.00000000+00, 
.99999990-01, 
. 00000000 + 00 ' 
. 00000000 + 00 * 
. 00000000+00' 
.00000000+00, 
.90000000+01, 
.00000000+00, 
.00000000+00, 
.00000000+00' 
.00000000+00' 
.14000000+04. 
.14000000+04' 
.14000000+04, 
. 00000000 + 00 ' 
.00000000+00' 
.40000000-03, 
.40000000-03, 
.40000000-03, 
. 00000000 + 00 ' 
. 00000000 + 00 , 
. 10000000 - 02 ' 
. 10000000 - 02 , 
. 10000000 - 02 , 
. 10000000 - 02 , 
. 10000000 - 02 , 

. 00000000 + 00 ' 
. 00000000 + 00 ' 
. 00000000 + 00 ' 
. 00000000 + 00 ' 
. 00000000 + 00 ' 


•OOOOOUOO+OO' 

. 00000000 + 00 , 

.QOOOOuQO+OO' 

. 00000000 + 00 , 

. 00000000 + 00 ' 

. 00000000 + 00 , 


. ooonoooo+oo 
.oonoouno+oo 
. 00000000+00 
. oononooo+oo 

. OOQuOOOO+DO 

. ooooooou+oo 
. 00000000+00 
. 00000000+00 
. 00000000+00 
. oounouoo+oo 

. 0 C 0 Q 0 0 0 0 + 0 0 
. 00000000+00 
. OOOOOOOG+OO 
.OOtiOOiOO + OO 
. 200001100+02 
. 20000000+02 
. 00000000+00 
. 0 0 o 0 0 j 0 0 + 0 0 
. 00000000+00 
. 99999998-01 
. 00000000+00 
. 00000000+00 
. 00000000+00 
. 00000000+00 
. 90000000+01 
. 00000000+00 
.oonoonoo+oo 
.OQooonoo+oo 
. ooooonoo+oo 

. 14000000+04 

. 14000000+04 

. 00000000+00 

. 00000000+00 

. 00000000+00 

. 40000000-03 

. 40000000-03 

. 00000000+00 

. 00000000+00 

. 00000000+00 

. 10000000-02 

. 10000000-02 

. 10000000-02 

. 10000000-02 

. 10000000-02 

. 00000000+00 

. 00000000+00 

. 00000000+00 

. 00000000+00 

. 00000000+00 


. 00000000 + 00 , 

. 00000000 + 00 , 

. 00000000 + 00 , 

. 00000000 + 00 , 

. 00000000 + 00 , 

. 00000000 + 00 , 


. oooooonn+fjo . 
. nooooooo + fin . 
.ouqooo on +•-.■’ . 

. OOOOOOOii + n;:, 

. nonnooDO+m., 

. 0U0Ci0000+;ii- . 

. oooooooa+ii'i . 
. ooci.joono+uf; . 
. ooooooon+.'jti . 
. ocooocoo+co. 
. ooooooon+oo, 

.ODOOOOOO+OO. 

. nuoooooo+Ci' > 
. ooooooon+un . 
. 20000000 + 02 . 
. 2 aoaonoo+n 2 , 
.00000000 + 01. , 
. OOOOOOOO+Ou . 
. OOOQOOOO + Ul) , 
. 99999998 - 01 , 
. 00000000 + 00 , 
.00000000+00, 
. OCJOOOOOO + OO , 
. OOOOOOOO + liO , 
. 90000000 + 01 , 
. 00000000+00, 
. OOQOODOO + uO » 
. OOOOOOOO+OU , 
, 00000000+00, 
. 14000000 + 04 , 
. 14000000 + 04 , 
.00000000+00, 
. 0 ooooooo+oo, 
.00000000+00, 
. 40000000 - 03 , 
.40000000-03, 
.00000000+00, 
. 00000000+00, 
, 00000000 + 00 , 
.10000000-02, 
. 10000000-02, 
.10000000-02, 
. 10000000-02, 
.10000000-02, 

.00000000+00, 

.00000000+00, 

.00000000+00, 

,00000000+00, 

.OOOOQOaO+QO, 


, 00000000 + 00 , 

. 00000000 + 00 , 

, 00000000 + 00 , 

, 00000000 + 00 , 

. 00000000 + 00 , 

. 00000000 + 00 , 
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. 00000000 + 00 . 
.OOOUOOOO+OO. 
• 0001)0000 + 00 . 
. 00000000+00. 
•0Q0O 0000+00. 
. 00000000 + 00 . 
. 00000000 + 00 , 
. 00000000 + 00 . 
.00000000+00, 
. 20000000 + 02 , 
■ 20000000 + 02 , 
. 20000000 + 02 , 
• 00000000 + 00 , 
. 00000000 + 00 , 
. oooooooo+oo, 

. 99999998-01 , 
.00000000 + 00 , 
•00000000+00, 
.00000000+00, 
•00000000+00, 
. 900UQQ00+01 » 
.00000000+00, 
•OOOUOOOO+OO, 
.00000000+00, 
•14000000+04, 
. 14000900+04 , 
. 14000900 + 04 , 
. OOOUOOOO + OO , 

. ooouoooo+oo , 

.40000000-03, 

.40000000-03, 

.40000000-03, 

.00000000+00, 

.00000000+00, 

.10000000-02, 

.10000000-02, 

.10000000-02, 

.10000000-02, 

.10000000-02, 

.00000000+00, 

.00000000+00, 

.00000000+00, 

.00000000+00, 

.00000000+00, 

.00000000+00, 

.40000000+03, 

. oooooooo+oo, 


. 79999999 + 00 , 
. 79999999 + 00 , 
. 79999999 + 00 , 
. 79999999 + 00 , 
. 79999999 + 00 , 
. 52100000 + 03 , 
. 52100000 + 03 , 
. 52100000 + 03 , 
. 00000000 + 00 , 
. 00000000 + 00 , 
. 40000000 + 02 , 


. 00000000 + 00 . 

. 00000000 + 00 . 

.OOQOQOCO+OO. 

. 00000000 + 00 . 

.OOOOOOOO+OO, 

. 00000000 + 00 , 

. 00000000 + 00 , 

•oooooooo+oo, 

, 00000000 + 00 , 

. 20000000 + 02 , 

. 20000000 + 02 , 

. 20000000 + 02 , 

. 00000000 + 00 , 

. 00000000 + 00 , 

. 99999998 - 01 . 

. 00000000 + 00 , 

. 00000000 + 00 . 

. 00000000 + 00 , 

. 00000000 + 00 . 

. 90000000 + 01 , 

. 00000000 + 00 , 

. 00000000 + 00 , 

. 00000000 + 00 , 

. 00000000 + 00 , 

. 14000000 + 04 , 

. 14000000 + 04 . 

. 14000000 + 04 , 

. 00000000 + 00 , 

.oooooooo+oo, 

. 40000000 - 03 , 

.+ 0000000 - 03 , 

. 40000000 - 03 , 

.oooooooo+oo, 

. 00000000 + 00 , 

. 10000000 - 02 , 

. 10000000 - 02 , 

. 10000000 - 02 , 

. 10000000 - 02 , 

. 10000000 - 02 , 

. 00000000 + 00 , 

.oooooooo+oo, 

. 00000000 + 00 , 

.oooooooo+oo, 

. 00000000 + 00 , 


. 79999999 + 00 * 
. 79999999 + 00 , 
. 79999999 + 00 « 
. 79999999 + 00 , 
. 79999999 + 00 * 
. 52100000 + 03 . 
. 52100000 + 03 . 
. 52100000 + 03 , 

.oooooooo+oo, 

.oooooooo+oo, 

. 40000000 + 02 , 


. OOOOOOOO+OO 

.ooonoooo+oo 
. 00000000+00 
. 00000000+00 
. 00000000+00 
. 00000000+00 
. oooooooo+oo 
•oooooooo+oo 
. 00000000+00 
. 20000000+02 
. 20000000+02 
. 00000000+00 
. 00000000+00 
. 00000000+00 
. 99999998-01 
. 00000000+00 
. 00000000+00 
. 00000000+00 
. 00000000+00 
. 90000000+01 
• 00000000 + 00 
. ooooouoo+oo 
. 00000000+00 
. 00000000+00 
. 14000000+04 
. 14000000+04 
. 00000000+00 
. 00000000+00 
.‘00000000 + 00 
. 40000000-03 
. 40000000-03 
. 00000000+00 
. 00000000+00 
. 00000000+00 
. 10000000-02 
. 10 D 00 QO 0-02 
. 10000000-02 
. 10000000-02 
. 10000000-02 

. 00000000+00 
. 00000000+00 
. 00000000+00 
.oooooooo+oo 
. 00000000+00 


. 79999999 + 00 , 
. 79999999 + 00 , 
. 79999999 + 00 , 
. 79999999 + 00 , 
. 79999999 + 00 , 
. 52100000 + 03 , 
. 52100000 + 03 , 
. 00000000 + 00 , 
. 00000000 + 00 , 
. 00000000 + 00 , 
. 40000000 + 02 , 


. ooooooou+nj . 
. 00000000 + 0 0 , 
. 00000000 + : .: . 
.00000000 + 00 . 
. 00000000 + 01 . 
. 00000000 + 00 . 
. OOOOOOOO+nn , 
. OOOOOOOO+Ou . 
. 00000000 + 00 , 
. 20000000 + 02 , 
. 20000000 + 02 . 
. 00000000+00 , 
.ooooooon+ui, 
. 00000000 + 00 . 
.99909998-01 , 
. OOOOOOOO+UO, 
.OUOOOOOO + OC . 
. 00000000 + 00 . 
. 00000000 + 00 . 
.90000000+01, 
. 00000000 + 00 , 
. ooooooon+oG , 
. 00000000 + 00 , 
. 00000000 + 00 , 
.14000000+04, 
.14000000+04, 
. 00000000 + 00 , 
. 00000000 + 00 , 
. 00000000 + 00 , 
. 4[_)O0OOOO-u3, 
.40000000-03, 
. 00000000 + 00 , 
. 00000000 + 00 , 
. 00000000 + 00 , 
. 10000000 - 02 , 
. 10000000 - 02 , 
. 10000000 - 02 , 
. 10000000 - 02 , 
. 10000000 - 02 , 

. 00000000 + 00 , 
. 00000000 + 00 , 
. 00000000 + 00 , 
. 00000000 + 00 , 
.oooooooo+oc, 


. 79999999 + 00 , 
. 79999999 + 00 , 
. 79999999 + 00 , 
. 79999999 + 00 , 
. 79999999 + 00 , 
. 52100000 + 03 , 
. 52100000 + 03 , 
. 00000000 + 00 , 
. 00000000 + 00 , 
, 00000000 + 00 , 
. 40000000 + 02 , 


Figure 9-1. (Continued) 
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AGX 


4VX 


RHOG 


RHOSB 


RHOS 


RHOC = 


RHOX 


CPG s 


CPC * 


CPX * 


CPP 


DX 


.4OOCO0UO+O2. 

.40000000+02, 

. OOOOOOOU + Cii, 
. 00000000 + 00 , 
.16000000+02, 
.16000000+02, 
. 16000000+02 , 
. 00000000 + 00 , 

• 00000000 + 0 0 , 
.32800000+1)3, 
.328uOU 00+33, 
.32800000+03, 
•00000000+00, 
.OOOuOOuO+OO , 
.30000000-03, 
.300 U 0000- 03, 
.30000000-03, 
.30000000-03 , 
* 300u0U 00-03 , 
.37000000+02, 
.37000000+02, 
.37000000+02, 
.00000000+30, 
.00000000+30, 
.64000000+02, 
.64000000+02. 
•64000000+02. 
.64000000+02, 
.64000000+02, 
.11500000+03, 
.11500000+03, 
.11500000+03, 
. 00000000 + 00 , 
. 00000000 + 00 , 
.49000000+03, 
.49000000+03, 
.49000000+03, 
. 00000000+00 , 
.00000000+00, 
.23000000+00, 
.23000000+00, 
.23000000+00, 
.00030000+00, 
. 00000000 + 00 , 
.280)0^00 + 00, 
.2B0u0000+00, 
.28000000+00, 
. 00000000 + 00 , 
. 00000000 + 00 , 
.10999999+00, 
.10999999+00, 
.10999999+00, 
.00000000+00, 
. 00000030+00 . 
.25000000+00 ■ 
.25000000+00, 
.25000000+00, 
.25000000+00, 
.25000000+00, 
.25000000+00, 


. 40000000+02- 
. 40000000 + 02, 

• 00000000 + 00, 

. oooooooo+oo, 
.16000000+02, 
•16000000+02, 
.16000000+02. 
.00000000+00, 
. 00000000+00, 
.32800000+03, 
.32800000+03, 
.32800000+03, 

• oooooooo+oo > 
•oooooooo+no, 

.30000000-03, 
.30000000-03, 
.30000000-03, 
•30000000-03, 
.30000000-03, 
.37000000+02, 
.37000000+02, 
.37000000+02, 
. OOQOQOOO+OO, 
.00000000+00, 
.64000000+02, 
.64000000+02, 
.64000000+02, 
.64000000+02, 
.64000000+02, 
•11500000+03, 
.11500000+03, 
.11500000+03, 
.00000000+00, 
.00000000+00, 
.49000000+03, 
.49000000+03, 
.49000000+03, 
.00000000+00, 
.00000000+00, 
•23000000+00, 
.23000000+00* 
.23000000+00, 

•oooooooo+oo, 

.00000000+00, 

. 28000000 + 00 * 

. 28000000 + 00 , 

.28000000+00, 

.oooooooo+oo, 

.00000000+00, 

.10999999+00, 

•10999999+00, 

.10999999+00, 

.00000000*00, 

.00000000+00, 

•25000000+00, 

.25000000+00, 

.25000000+00, 

.25000000+00, 

.25000000+00, 


. 40000000+02. 
.00000000+00. 
. OOOOOuOU + OO. 
. 00000000+00, 
. 16000000 + 02 , 
. 16000000+02 
. ooonoooo+oo, 
. 00000000+00. 
.00000000+00 
. 32800000+03 
.32800000+03 

.00000000+00 
. 001)00000 + DO 
. DODOOODO+DQ 
. 30000000-03 
.30000000-03 
.30000000-03 
.30000000-03 
.30000000-03 
. 37000000+02 
. 37000000+02 
. 00000000+00 
. 00000000+00 
.00000000+00 
.64000000+02 
.64000000+02 
.64000000+02 
. 64000000+02 
.64000000+02 
.11500000+03 
.11500000+03 
. 00000000+00 
. ooooooou+oo 
.00000000+00 
. 49000000+03 
.49000000+03 
. 00000000+00 
.00000000+00 
. 0 0 0 0 0 0 0 0 + 0 0 

.23000000+00 
.23000000+00 
. 00000000+00 
.ooooouoo+oo 
. 00000000+00 
. 28000000+00 
.28000000+00 
.00000000+00 
.00000000+00 
.00000003+00 
.10999999+00 
. 10999999+00 
.00000000+00 
.00000000+00 
.00000000+00 
.25000000+00 
.25000000+00 
.25000000+00 
.25000000+00 
.25000000+00 


. 40000000 + 02 . 

. ooc.joono+nt, 

. ooooOCKjo+n u • 

. 00000000 + 00 , 
.16000000 + 02 . 
. 16000000 + 02 , 
. OOOGOOOO + OU • 

. noooooou+i.io'. 

.00030000+ r.i u , 
. 32000000 + 03 . 
. 32800000 + 03 . 

. 00000000+00, 
. OOOOOOOO + Oi) , 
. 00000000 + 00 , 
• 30000000-03 , 
. 30000000 - 03 , 
. 3 0 0 0 0 0 0 0 - 0 3 , 
. 30000000 - 03 , 
. 3 uOOOOOO-.) 3 , 
.37000000 + 1 : 2 . 
. 37000000 + 02 , 
. 00000000 + 00 . 
.oooooooo+ou, 
. 00000000 + 00 , 
. 64000000 + 02 , 
. 64000000 + 02 . 
, 64000000 + 02 . 
. 64000003 + 02 , 
. 64000000 + 02 , 
. 11500000 + 03 , 
. 11500000 + 03 , 
. 00000000 + 00 , 
. 00000000 + 00 , 
. 00000000 + 00 , 
. 49000000 + 03 , 
'.49000000 + 03 , 
. 00000000 + 00 , 
. 00000000+00 , 
. 00000000 + 00 , 
. 23000000 + 00 , 
. 23000000 + 00 , 
. 00000000 + 00 , 
. 00000000 + 00, 
. 00000000 + 00 , 
. 28000000 + 00 , 
. 28000000 + 00 , 
. 00000000 + 00 , 
. 00000000 + 00 , 
. 00000000 + 00 , 
, 1 D 999999 + 00 , 
. 10999999 + 00 * 
. 00000000 + 00 , 
. 00000000 + 00 . 
. 00000000 + 00 , 

.25000000+00, 

.25000000+00. 

.25000000+00. 

.25000000+00, 

.25000000+00, 


Figure 9-1. (Continued) 
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NPSET 

= 

10, 


t 


NDK4 

= 

2, 




ndvmac 

= 

5, 




NBCOUT 

r 

4, 




NDX 1 

= 

5, 




NDXM 

= 

5, 




NOG 

= 

1 , 




POUT 

= 

.00000000+00* 

. 00000000+00, 

.00000000+00. 

.00000000+00 



. 00000000+00 , 

.00000000+00. 

. 00000000+00, 

.00000000+00 



.00000000+00, 

.00000000+00* 



TIMET 


•00000000+00, 

.00000000+00* 

.00000000+00, 

.0,5000000 + 00 



.00000000+00, 

.00000000+00. 

.00000000+00, 

. OuOOOOOO+OO 



•00000000+00, 

•00000000+00. 



PUMP 

= 

.10000000+01, 

.25000000+02, 

.25000000+02, 

, 25000000+02 



.25000000+02, 

.25000000+02, 

.25000000+02, 

.25000000+02 



.25000000+02, 

.25000000+02, 



VPUMP 

= 

.30000000+01, ' 

.oooooooo+oo, 

.00000000+00, 

.00000000+00 



•00000000+00, 

•oooooooo+oo, 

.00000000+00, 

.00000000+00 



.00000000+00, 

.00000000+00, 



IDSORB 

= 

1, 

1* 

1, 

1 



1 , 

1. 

1, 

1 



1, 

1, 

1, 

1 



1, 

1, 

1, 

1 



1 , 

1 * 

1, 

1 

CPL 

s 

. 10200000 + 01. 

. 10000000+01, 



DP 

£ 

.64199999-02. 

.64199999-02* 

. 64199999-02, 

,64199999-02 



.64199999-02, 

.64199999-02* 

.64199999-02, 

.64199999-02 



.64199999-02, 

.64199999-02* 

. 64199999-02, 

,64199999-02 



.64199999-02, 

.64199999-02* 

.64199999-02, 

,64199999-02 



.64199999-02, 

.64199999-02* 

.64199999-02* 

.64199999-02 


SEND 

SMBA 


HXG * .00000000+00, .00000000*00* .00000000+00, .00000000+00, 

. 00000000 + 00 , . 00000000 + 00 * . 00000000 + 00 , . 00000000 + 00 , 

. 00000000 + 00 , . 00000000 + 00 * . 00000000 + 00 , . 00000000 + 00 * 

. 00000000 + 00 . . 00000000 + 00 * . 00000000 + 00 , . 00000000 + 00 . 

. 00000000 + 00 , . 00000000 + 00 * . 00000000 + 00 , . 00000000 + 00 . 

HXS = .96000000+01, .96000000+01, .96000000+01, .96000000+01* 

.96000000+01, .96000000+01, .96000000+01, .96000000+01, 

•96000U00+C1, .96000000+01, .00000000+00, .00000000+00. 

.OOOOOOuO+OO, .00000000+00* .00000000+00, .00000000+00, 

. 00000000 * 00 , . 00000000 + 00 , . 00000000 + 00 , . 00000000 + 00 , 

HXC = .00000000+00, .00000000+00, .00000000+00, .00000000+00, 

. 00000000 + 00 , . 00000000 + 00 * . 00000000 + 00 , . 00000000 + 00 * 

. 00000000 + 00 , . 00000000 + 00 , . 00000000 + 00 , . 00000000 + 00 , 

. 00000000 + 00 , . 00000000 + 00 , . 00000000 + 00 , . 00000000 + 00 , 

. 00000000 + 00 , . 00000000 + 00 * . 00000000 + 00 , . 00000000 + 00 , 

HSG = .50000000+01, .50000000+01* .50000000+01, .50000000+01, 

.50000000+01, .50000000+01* .50000000+01, .50000000+01, 

.50000000+01, .50000000+01, .00000000+00, .00000000+00, 

.00000000+00, .00000000+00, .00000000+00, .00000000+00, 

.00000000+00, .00000000+00* .00000000+00, ,00000000+00, 

SK s .00000000+00, .99999998-01, .99999998-01, .99999998-01, 

.99999998-01. .00000000+00* .00000000+00. .00000000+00, 

. 00000000 + 00 , . 00000000 + 00 * . 00000000 + 00 , . 00000000 + 00 , 

.00000000+00, .00000000+00' .00000000+00, .00000000+00, 

.00000000+00, .00000000+00* .00000000+00, .00000000+00, 

TKX = .00000000+00, .90000000+01,. .90000000+01, .90000000+01, 

.90000000+01. .00000000+00* .00000000+00, .00000000+00, 

. 00000000 + 00 . . 00000000 + 00 , . 00000000 + 00 , . 00000000 + 00 , 
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.OQOOOOOO + OU. . 00000000*00 > .00000000 + 00. 

. OOOJOUOO + OO . .00000000 + 00. .oouooooo + oo. 

OH = . 40000000+03 . .40000000+03. .40000000+03, 

' .40000000+^3. ■ .40000000+03. .40000000+03, 

.400 J 0000+03, .40000000+03. .00000000+00, 

. OOOuOGoO+OQ . .00000000 + 00, -00000000 + 00, 

.0 0000000+00. .00000000+00* .00000000+00, 

DIP - -40000000-04, .40000000-04, .40000000-04, 

.40000000-04, .40000000-04, .40000000-04, 

.40000000-04, .40000000-04, . OOOOOuOO + OO , 

. 00000000 + 00 . . 00000000 + 00 , ’ . 00000000 + 00 , 

.00000000+00, .00000000+00, .00000000+00, 

OK = .20000000-03, .20000000-03. .20000000-03. 

.20000000-03, .20000000-03, .20000000-03, 

•20000000-03, .20000000-03, .00000000+00, 

.00000000+00, .00000000+00, .00000000+00, 

.00000000+00, .00000000+00. .00000000+00, 

TC1N = .00000000+00. 

HT^l = .00000000+00. .00000000+00* .00000000+00, .00000000+00. 

. 00000000 + 00 , . 00000000 + 00 * .00000000 + 00 , .00000000 + 00 -. 

. 00000000 + 00 , . 00000000 + 00 , * 00000000 + 00 . . 00000000 + 00 . 

.ooocoono+oo, .00000000+00, .00000000+00, .00000000+00. 

.00000000+00, .00000000+00* .00000000+00, .oooooooo+oc, 

TMAX S .40000000+03, 

WCC = .00000000+00, 

JfcNO 

'iMBD 

HXG = .60000000+01, .60000000+01. .60000000+01, .60000000+01, 

.60000000+01, .60000000+01, .60000000+01, .60000000+01, 

.600)0000+01. .60000000+01, .00000000+00, .00000000+00, 

.00000000+00. .00000000+00, .00000000+00, .00000000+00, 

.00000000+00, .00000000+00, .00000000+00, .00000000+00, 

HXS s .96000000+01, .96000000+01* .96000000+01, .96000000+01, 

.96000000+01, .96000000+01* .96000000+01, .96000000+01, 

.96000000+01, .96000000+01. .00000000+00, .00000000+00. 

.00000000+00, .00000000+00* .OOOOOuOO+OO, .00000000+00, 

.00000000+00. .00000000+00, .00000000+00, .00000000+00, 

HXC = .00000000+00. .00000000+00, .00000000+00, .00000000+00, 

.00000000+00, .00000000+00* .00000000+00, .00000000+00. 

. 00000000 + 00 , . 00000000 + 00 , . 00000000 + 00 , , 00000000 + 00 , 

• OOOOOOOO + uO . .00000000+00* • OOUOOODO + OO , . 00000000 + 00* 

.00000000+00, .00000000+00* .00000000+00, ,00000000+00. 

HSG = .50000000+01, .50000000+01. *50000000+01, ,50000000+01, 

.50000000+01. .50000000+01, .50000000+01, .50000000+01, 

.50000000+01, .50000000+01, . 00000000+00 , .00000000+00, 

.00000000+00, . OOOOOuOO+OO* *00000000+00, .00000000+00, 

.00000000+00, .00000000+00. .OOOOOUOO+OO, .00000000+00, 

SK = .00000000+00, .99999998-01, .99999998-01, .99999998-01, 

.99999998-01, .00000000+00* *00000000+00, .00000000+00, 

.00000000+00, .00000000+00, *00000000+00, .00000000+00, 

•OOOUOOOO+OO, .00000000+00* .00000000+00, ,00000000+00* 

.00000000+00, .00000000+00* *00000000+00, .00000000+00, 

TKX = .00000000+00. .90000000+01* * 9000UP00+01 , .90000000+01, 

.90000000+01, .00000000+00* *00000000+00, .00000000+00, 

.00000000+00, .00000000+00* *00000000+00, .00000000+00, 

.00000000+00, .00000000+00* *00000000+00, .00000000+00, 

.00000000+00, .00000000+00, .00000000+00, ,00000000+00, 

DH X .40000000+03, .40000000+03* .40000000+03, .40000000+03, 

.40000000+03, .40000000+03, .40000000+03, .40000000+03, 

.40000000+03, ,40000000+03. .00000000+00, .00000000+00, 


.00000000 + 1 : 0 . 
. 00000000 + 00 . 
.40000000+03, 
.40000000+03. 
.00000000+00. 
. oooooooo+oo . 
.OUOOOOOO+no, 

.40000000-04, 
. 40000000-04 , 

.oooooooo+no, 
. 00000000 + 00 . 
. nuoooooo+ou . 

.20000000-03. 
.20000000-03. 
. 00000000 + 00 . 
. nuoooooo+oi). 
.0 ooooooo+co, 


Figure 9-1 . (Continued) 
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. 000C0000+00 . 

.00000000+00, 

.oonooooo+oo, 

- . o u o o o n o o + 1 1 ti . 



•00000000+00. 

. .00000000+00, 

.000011000 + 00, 

;ouoooooo+oo, 

DIF 

x 

• 4 0 0 U 0 0 0 0 - 0 4 , 

.40000000-04. 

. 40000000-04 , 

.40000000-04, 



.40000000-04, 

.40000000-04. 

. 40000000-04 , 

, 4oouooon-u4 , 



.40000000-04 , 

.40000000-04, 

.00000000+00, 

.00000000+09. 



. oooooooo+oo > 

.00000000+00, 

. 00000000+00, 

. 00000000+00. 



.00000000+00, 

.00000000+00. 

.00000000+00, 

. oooooooo+oo, 

GK 

= 

■20000000-03. 

.20000000-03, 

.20000000-03, 

.20000000-03, 



.20000000-03, 

.20000000-03, 

.20000000-03, 

. 20000000-03, 



.20000000-03, 

.20000000-03, ' 

. OOOGOGOO + OO » 

.00000000+00, 



.00000000+00, 

.00000000+00, 

.00000000+00, 

. ooooooon+ou. 



.00000000+00, 

.00000000+00. 

,00000000+00, 

.00000000+00, 

TCIN 

= 

.00000000+00, 




HTKl 


.10000000+04, 

.10000000+04, 

.10000000+04, 

.10000000+04, 



.10000000+04, 

.10000000+04, 

.10000000+04 , 

.10000000+04, 



.10000000+04, 

. 10000000+04, 

.10000000+04, 

. 10000000+04, 



.10000000+04, 

.10000000+04* 

.10000000+04, 

.1UOOOOOO+U4, 



. 10000000 + 04, 

.lOOQQUOO+04, 

. 10000000+04, 

. 10000000+U4, 

TMAX 

s 

.40000000+03, 




a/CC 

= 

. 00000000+00 , 




SEND 







Figure 9-1. (Continued) 
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BED NO 1 

VOLUME AND WEIGHT 


BULK VOLUME OF C02 SORBENT ( CU FT) .0000 
WEIGHT OF C02 SORBENT (LB) .0000 
WEIGHT OF ACTIVE C02 SORBENT (LB) .0000 

BULK VOLUME OF DESICCANT (CU FT) 1.2500 
WEIGHT OF DESICCANT ( lB ) 56.2500 


ESTIMATED CABIN GAS LOSSES 

NITROGEN LOSS (LB/HR) 
OXYGEN LOSS (LB/HR) 


.0000 

.0000 


Figure 9-2. Sorbent Bed Size and Gas Loss 
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BED NO 2 

VOLUME AND WEIGHT 


BULK VOLUME OF C02 SORBENT ( CU FT) 
WEIGHT OF C02 SORBENT (LB) 

WEIGHT OF ACTIVE C02 SORBENT (LB) 

BULK VOLUME OF DESICCANT (CU FT) 
WEIGHT OF DESICCANT (LB) 


ESTIMATED CABIN GAS LOSSES 

NITROGEN LOSS (LB/HR) 
OXYGEN LOSS (LB/HR) 


Figure 9-2. (Continued) 
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1.0000 

37.0000 

37.0000 

. 0000 
.0000 


■ 0000 
.0000 
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BED NO 3 

VOLUME AND WEIGHT 


BULK VOLUME OF C02 SORBENT ( CU FT) .0000 
WEIGHT OF CQ2 SORBENT < LB ) .0000 
WEIGHT OF ACTIVE C02 SORBENT (LB) *0000 

BULK VOLUME OF DESICCANT (CU FT) 1.2500 
WEIGHT OF DESICCANT (LB) 56.2500 


ESTIMATED CABIN GAS LOSSES 

NITROGEN LOSS (LB/HR) .0000 

OXYGEN LOSS (LB/HR) .0000 


Figure 9-2. (Continued) 
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BED NO 4 

VOLUME AND WEIGHT 

BULK VOLUME OF C02 SORBENT < CU FT) 1.0000 
WEIGHT OF C02 SORBENT ( LB ) 37.0000 

WEIGHT OF ACTIVE C02 SORBENT (LB) 37.0000 

BULK VOLUME OF DESICCANT ( CU FT) .0000 

WEIGHT OF DESICCANT (LB) .0000 

ESTIMATED CABIN GAS LOSSES 

NITROGEN LOSS (LB/HR) .0000 

OXYGEN LOSS (LB/HR) .0000 

Figure 9-2. (Continued) 
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ADSORPTION CYCLE 6 

T I ME= 1.60000 HR 96.000 MIN TIME I NCREMENT= .01302 HR 


NASA CR-I I 2098 
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AXIAL node TOTAL PRESS., MM gas temp, deg f sorbent temp, deg f coolant temp, deg f hx core temp, deg f 
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EXAMPLE RUN NO. 2 

In the second example, the capability of the program to account for the 
coadsorption of CO^ with t^O is demonstrated. To utilize this capability, 

the program must be run in two stages. In the first stage, the program is 
run for NCTl cycles to establish the amount of water accumulated in a sorbent, 
bed after NCTl cycles of operation. The quantity of (^-sorbent equivalent 

to the coadsorption capacity of the desiccant bed is then added to the original 
CO^-sorbent, and the program rerun for NCT2 cycles to obtain the performance 

of the bed at NCTl cycles from the beginning, accounting for the coadsorption 
effect. 

In the present example, the Airlock RCRS performance is simulated at 
2-days into a mission. The accumulation of H^O is established by running the 

program for 96 cycles (half-cycle being 15 minutes), deliberately using an 
over-sized desiccant section. Pertinent data required for the run are given 
in Figure 9-4. A total of 18 nodes are used, nine being CO^ sorbents. The 

split of sorbents for CO^ and is given in Figure 9-5. The program is run 

for 96 complete cycles (NCTl=96), the coadsorption capacity of the desiccant 
for CO^ is calculated at the water loadings prevailing and sorbent bed sizes 
adjusted accordingly. The new bed sizes are shown in Figure 9-6. The 
performance of the new bed is then obtained by running the program for 14 
complete cycles (NCT2=I4). Print-outs at the adsorption and desorption end 
of the 14th cycle are shown in Figures 9-7 and 9-8. The adsorption half-cycle 
performance computed by the program is compared with test data (Reference 8) 
in Figure 9-9. The output P 's as predicted by the program matches the test 

v* u 2 

results reasonably well; the inlet P _ 's as shown are quite different; however, 

L/ u ^ 

a material balance of the system indicates that the test data are in error, 
possibly caused by i ns t rumentat i on 1 i ne leakage. Figure 9-10 compares the 
desorption pressures computed by the program with test data. The match is 
good . 
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»MA I M 

*M 

2 

. 4 Auuouiio+a?. 

. 1 6 00 0 0 0 0 + 0 2 , 



CVl.Lt 

= 

. 2S0l'0uflU + U0, 




OTi'Ux 

= 

. 49999999-02 > 




• I 

= 

. 49999999-02. 




II 


. 260U00D0 + 01 , 




PCU2C 


• 350U0U00+01 * 




volcab 

- 

. 7 (J 0 1 J 0 0 0 0 + 0 2 . 




PC L)2C 

= 

.281U0000+00, 




NPKINT 

- 

30 , 




NO 1 CUN 

= 

1 - 




NTtMP 

= 

1 * 




TGC 

= 

. 650UOU0O+O2. 




PAL 

z 

•239U0000+03. 




PH 20C 

- 

. lUOUOGOO+02, 




( GHX 

z 

.2U0U0U00+03, 




PCU2A 

z 

• 23UUQ000+02, 




VCU? A 

= 

.10000000+02, 




S AHC02 

= 

. 794V9999 + Q0. 




TC02A 

z 

. 1J0U0000 + 03. 




KBtD 

- 

9 

1/ 

1 

t 

T INEQS 

= 

.20000000*01 < 




NCT1 

= 

96. 




NS 1 1 

5 

96, 




NCI 2 

= 

14. 




NS 1 2 
*EnD 
SRli-1 


14, 




PA 1 

= 

.00UU0U00+00. 




TSUI 

= 

.350U0U00+03. 

.35000000+03, 

. 3 3 o 0 0 0 0 U + 0 3 , 

.35000000+03, 



.3U0J0U00+03. 

<35000000+03, 

.35000000+03, 

. 33000000+03, 



•33000000+03. 

.35000000+03, 

. 00000000+00. 

. mioooono+no > 



.00000000+00. 

.00000000+00, 

. ODOOOOOD+OO, 

. ooooooon+nu. 



.00000000+00. 

.00000000+00* 

.00000000+00, 

.00000000+00 , 

rcui 

= 

.3^000000+03. 

.35000000+03, 

.35000000+03, 

,35000000+03, 



.33000000+03. 

.35000000+03, 

.35000000+03, 

.35000000+03, 



.35000000+03, 

.35000000+03, 

. 00030000+00, 

.00000000+00, 



.OOOJOOOO+UO. 

.oooaoooo+oo* 

. OOOOOQOO+UO, 

.00000000+00, 



.00000000+00, 

.00000000+00, 

. 00000000+00, 

.00000000+00, 

TX01 


.33000000+03, 

.35000000+03* 

.35no0000+03, 

.35000000+03. 



. 3b0 00000 + 03 , 

.35000000+03, 

. 33000000+03, 

.35000000+03. 



• 330U0000+03 » 

.35000000+03, 

. oooooooo+oo, 

. 00000000 + 00 . 



.00000000+00. 

. oooooooo+oo , 

. 00000000+00, 

.00000000+00, 



.00000000+00, 

.00000000+00* 

. nooooQoo+oo. 

.00000000+00, 

W1 

= 

•lOOUOOOO-02, 

.10000000-02, 

. 10000000-02, 

. .10000000-02, 



•10000000-02. 

. 10000000-02* 

. 10000000-02, 

.10000000-02. 



.10000000-02, 

.10000000-02, 

. 10000000-02, 

.10000000-02, 



• 1 0 0 U 0 0 0 0 - 0 2 , 

. 10000000-02, 

. 10000000-02, 

, 10000000-02, 



• 100 JOOOO-02 , 

.10000000-02, 

. 10000000-02, 

.10000000-02, 



• 10000000-02. 

.10000000-02* 

.10000000-02, 

.10000000-02, 



.10000000-02, 

.100O00G0-02, 

. 10000000-02, 

.10000000-02, 



. 1OOUOUO0-O2 , 

.10000000-02* 

f 10000000-02, 

,10000000-02, 



.10000000-02, 

.10000000-02, 

.10000000-02, 

.10000000-02, 



•lOOUOOOO-02, 

.10000000-02* 

. 10000000-02, 

,10000000-02, 



• lOOUOOOO-02,-. 

.10000000-02, 

,10000000-02, 

,10000000-02, 



•10000000-02, 

. ioouaouo-02, 

• 10000000-02, 

.10000000-02, 



.10000000-02, 

.10000000-02, 

. 10000000-02, 

. 10000000-02, 



•10000000-02. 

.10000000-02* 

* 10000000-02, 

.10000000-02, 



.10000000-02, 

.10000000-02, 

. 10000000-02, 

.10000000-02, 



•10000000-02, 

. 10000000-02, 

• 10000000-02, 

.10000000-02, 


Figure 9-4. 
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GMRi 

i'.MWI 

PN?J. 

P 02 l 

SEND 

$B?M 

P42 

TS02 


TC02 


TX02 


W2 


GMR2 

GMW2 

PN22 

P022 

send 

SB3M 

PA3 

TS03 


TC03 


. 100000n0-02 , 

. 100UOOUO-U2 , 
•10000000-02, 
• 10000000-02, 
•67000000+02. 
.29500000+02, 
. 00000000 + 00 , 
• 00000000 + 00 , 


. 25800000 + 03 , 
.68000000+02, 
.68000000+02, 
.70000000+02, 
.60000000+02, 
.30000000+02. 
.70000000+02, 
.70000000+02, 
.70000000+02. 
.70000000+02, 
. 65000000+02 , 
.68000000+02, 
.68000000+02, 
.70000000+02, 
•60000000+02, 
• 30000000 + 02 . 
.23500000-01 , 
.24100000-01* 
.23800000-01, 
.23300000-01* 
.22800000-01, 
. 22100000 - 01 * 
.29300000-01* 
.29800000-01, 
.30300000-01, 
.39999999-01* 
•39999999-01. 
. 49999999-01 * 
. 49999999-01 * 
.49999999-01* 
.49999999-01, 
.69999998-01* 
.200U0000+00, 
. 200 0000 + 00. 
.56999999-01, 
.56999999-01* 
.15500000+02, 
•31000000+02, 
.65000000+02, 
.19300000+03, 


. 00000000+00, 
.45000000+02, 
.45000000+02, 
.45000000+02, 
.45000000+02, 
.45000000+02, 
.45000000+02, 
. 45000000+02, 


. 10000000 - 02 * 

.10000000-02* 

. 10000000 * 02 * 

. 10000000 - 02 , 


.68000000+02* 

. 70000000 + 02» 
.70000000+02* 
.50000000+02, 
. 20000000 + 02 , 
.70000000+02* 
.70000000+02* 

. 70000000+02, 
.70000000+02* 

. 70000000+02. 
*68000000+02* 
.70000000+02* 
*70000000+02* 
.50000000+02, 
. 20000000 + 02 * 
.23500000-01* 
.24100000-01* 
.23600000-01, 
.23300000-01* 
.22800000-01* 
. 22100000 - 01 * 
.29300000-01* 
.29800000-01* 
.30300000-01* 
.39999998-01* 
.39999999-01* 
.49999999-01* 
.49999999-01* 
.49999999-01* 
.49999999-01* 

. 69999996*01 *~ 
. 20000000 + 00 * 
. 20000000 + 00 * 
.56999999-01* 
.56999999-01* 


.45000000+02* 

.45000000+02. 

.45000000+02* 

.45000000+02* 

.45000000+02* 

.45000000+02* 

.45000000+02* 


.lOUOOOOn-02. 
. 10000000 - 02 , 
. 10000000 - 02 , 
. ionoooou-02, 


. 68000000+02 
. 70000000+02 
. 70000000+02 , 
.40000000+02, 
. 00000000+00 , 
.70000000+02, 
.70000000+02, 
.70000000+02, 
.65000000+02 
, 001)00000 + 00 
•68000000+02, 
. 70000000+02 
.70000000+02 
.40000000+02 
.00000000+00 
.23500000-01 
.24100000-01, 
.23800000-01 
,23300000-01 
. 22800000-01 
. 22100000-01 
.29300000-01 
.29800000-01 
.30300000-01 
.39999999-01 
.39999999-01 
.49999999-01 
. 49099999-01 
.49999999-01 
.49999999-01 
,69999998-01 
. 20000000+00 
. 20000000+00 
.56999999-01 
.56999999-01 


.45000000+02* 

.45000000+02* 

.45000000+02* 

.45000000+02, 

,45000000+02* 

.45000000+02* 

.45000000+02* 


. 100 J0030-02, 
. 10000000 -n>:, 
1 0000000-;;2 , 
. 10000000-02 , 


. 68000000+02. 
. 70000000+0?* 
. 70000000+02. 
. 35000000+02, 
. OGOOOOOU+UO. 
.70000000+02, 
. 7(1000000 + 0.2 . 
. 70000000+02, 
. 65000000+02, 
.00000000+00, 
. 68000000+02, 
. 70000000+02, 
.70000000+02, 
.35000000+02, 
.00000000 + 1)0, 
.23500000-01. 
.24100000-01, 
. 23800000-01 , 
. 23300000-01, 
.22800000-01, 
. 22100000 - 01 , 
.29300000-01, 
.2»8OOO0O-O1, 
.303,00000-01, 
,39999999-01, 
.39999999-01, 
, 49999999-01, 
,49909999-01, 
.49999999-01, 
.49999999-01, 
.69999998-01, 
. 20000000 + 00 , 
. 20000000 + 00 . 
.56999999-01, 
. 56999999-01, 


.45000000+02, 

.45000000+02, 

,45000000+02, 

.45000000+02, 

,45000000+02, 

.45000000+02, 

.45000000+02, 


Figure 9-4. (Continued) 



AIRESEARCH MANUFACTURING COMPANY 

l os Anj'.-tes. Ct’’?**' ’>i.i 


72-8786 
Page 168 



NASA CR-I I 2098 


. 960u0000+01 . .9600001.0 + 01. .96000000+01. . «>6000n0'i+ U 1 . 

. 96oooooo+:>i , .96oooouo+ni. .00000000+00, ' . ooononon+oo . 

. 000.-00"'0+00 . .POOOOCl.'O + OO, . OOlUir.OOO + OO. . Oijn-.IOO-Oii + DL , 

. ojo .oOi.o+oo . .oooooooo+oo. .oonooooo+oo. . laoooooo+cio. 

hxc - . onocoooo+oo. . ooooooro+oo > . ouuoooou+oo. .00000000+00. 

.00000000+00. .00000000+00. .00000000+00. .00000000+00. 

• 0000:0000 + 00 • .OOQOOOnO + OQ. . OOOOOOOu+OO . . n0O0000o+O0. 

• 000:10000+00. .OOQOOonO+no. .00(100000 + 00. . O(J0O0CO : i + iiC, 

.00030000+00. . OOQOOvlOQ + OQ > . OCOOO’.OO+OO . .00)000000 + 00. 

hSG i .20000000+02. .20000000+02. .20000000+02. .20000000+02. 

.20000000+02. .20000000+02. .20000000+02. .20000000+02. 

.20000000+02, .20000000+02. . OCOOOOO-J+OO . .00000000+00, 

•00000000+00. .00000000+00* .00000000+00. .00000000+00. 

.oooooooo+oo, .oooooouo+oo, .ooooooorj+oo. . nnoooooi.+cio » 

SK = .00000000+00, .99999998-01. .99999998-01. .99999998-01, 

.99999998-01. .99999998-01, .99999998-01, .99999998-01. 

.99999990-01, .99999998-01, .00000000*00, .00000000+00, 

.OOOOOOtiC+OO. . OOOOOOuO + OO, . 0000000:1+00. .UOOOOOOO+C'C. 

.00000000+00, .00000000+00, .00000000+00, . H.jOOOOOO+nO , 

TKX I .00000000+00, .90000000+01, .90000000+01. .90000000+01, 

.900)0000+01. . 900000OQ + 01 , .90000000 + 01, . 90OOOOCO + U1 , 

.90000000+01, .90000000+01, .00000000+00, .00000000+00, 

.oooooooo+oo. .oooooooo+oo. . ooononon+oo. .00000000+00. 

.000-10000+00. ■ .00000000+00, .OOCOOLOO+OO, .00000000+00, 

DH = .14000000 + 04, .14000000 + 04, . l4riO0 1011 + 04 , . .1.4000000 + 04 . 

.14000000+04. .14000000+04, .14000000+04, .14000000+04, 

.14000000+04. .14000000+04, .OOOOOOOO+OO. ' .00000000+00, 

.00000000+00. .00000000+00, .00000000+00. .00000000+00, 

.00000000+00, .QOOOOOOO+OO, .00000000+00, .00000000+00, 

DIF = 40000000-04, .40000000-04, .40000000-04, .40000000-04, 

.40000000-04, ,40000000-04, .40000000-04, .40000000-04, 

.40000000-04, .40000000-04, .40000000-04, .40000000-04, 

.4 000 0000-04 . .40000000-04, . 40000000-04, .4 0000000-0 4, 

.40000000-04, .40000000-04, .40000000-04, .40000000-04, 

GK 5 .49999999-02, .49999999-02, .49999999-02, .49999999-02, 

.49999999-02. .49999999-02, .49999999-02, .49999999-02, 

.49999999-02, .49999999-02, .00000000+00, .00000000+00, 

.ooo'oooo+ou, .ooaooooo+oo, .coooonor+oo, .noonooon+oo, 

.OOOJOOOO+CO, .OOOOOUCO+OO, .00000003+00, .00000000+00, 

TCIN = .00000000+00, 

htri = .OOOOOOOO+OO. .00000000+00. .00000000+00, ,00000000+00, 

.00000000+00. .00000000+00, .OOOOOOOO+OO, ,00000000+00, 

•noooooco+oo, .OOOOOOOO+UO* .oonooooo+oo, ,00000000+00, 

.00000000 + 00. .00000000 + 00, .ooooo.:oo + oo» .00000000+00, 

.00000000+00. .00000000+00* .00000000+00, .00000000+00, 

TMAX = .40000000+03. 

WCC = .00000000+00, 

SEND 

iMB 

ABEf) 5 .42600000+00. .42600000+00* ,42600000+00. .38000000+00, 

.38000000+00, .38000000+00, . 3B0U JOOO+OO , .38000000+00, 

.38000000+00. .42600000+00* .42600000+00, .42600000+00, 

.42600000+00, .42600000+00, .42600000+00, .42600000+00, 

.42600000+00, .42600000+00* *00000000+00, .00000000+00, 

A VC = .10000000+03, . 10000000+03 , .10000000+03, .10000000+03, 

.10000000+03. .10000000+03, .10000000+03, .10000000+03, 

.10030000+03. .10000000+03, .10000000+03, ,10000000+03, 

•10000000+03, .10000000+03, .10000000+03, ,10000000+03, 

.10000000+03, .10000000+03, .00000000+00, .00000000+00, 

ASX = .61799999+01, .61799999+01* .61799999+01* .61799999+01, 
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ACX 


AVX 


RHOG 


RHOSB 


RHOS 


RHOC 


RHOX 


CPG 


CPC 


CPX 


CPP 


OX 


.61799999*01, 
.61799999+01, 
. 61799999 + 01 , 
.61799999+01, 
. 61799999+01 . 
•61799999+01. 
. 61799999 + 01 . 
. 61799999+01 . 
.61799999+01, 
•37500000+03. 
.37500000+03, 
.37500000+03, 
. 37500000+03. 
■ 3 7 5 0 0 J G 0 + 0 3 » 

• 300: 00G0-03. 
•300U0000-03. 
.30000000-03, 
.30000000-03, 
. 30000000-03, 
.63000000+02. 
.36000000+02, 
. 360 0000 + 02, 

• 43000000 + 02, 
. 430000n0+02, 
.64000000+02, 
• 640000u0+02. 
.64000000+02, 
•640U0000+02, 
.64000000+02, 

• 11500000 + 03. 
•11500000+03, 
•11500000+03, 
•00000000+00, 
•00000000+00, 
. 49000000+03. 
.49000000+03. 
.49000000+03. 
. 490u0000+03. 
. 49000000+03, 
■23000000+00. 
•23010000+00. 
.23000000+00, 
.23010000+00, 
.23010000+00, 
. 1000 0000+21. 
. lOOCOQOO+21, 
.10000000+21, 

• 10000000 + 21 , 
.10000000+21, 
. 10999999+00, 
.10999999+00, 
. 10999999+00 . 
.10999999+00, 
. 10999999+00. 
. 25000000+00 . 
•35100000+00, 
.35100000+00, 
. 25000000+00, 
.25000000+00, 
.35599999-01, 


. 61799999 + 01 , 
. 61799 1 > 99 + 01 , 
. 61799999 + 01 - 
. 61799999 + 01 . 
. 61799999 + 01 . 
. 61799999 + 01 . 
. 61799999 + 01 , 
. 61799999 + 01 * 
. 61799999 + 01 . 
. 37500000 + 03 , 
. 37500000 + 03 . 
. 37500000 + 03 . 
. 37500000 + 03 , 
. 37500000 + 03 , 
. 30000000 * 03 , 
. 30000000 - 03 . 
. 30000000 - 03 , 
• 30000000 - 03 , 
. 30000000 - 03 , 
. 43000000 + 02 - 
. 36000000 + 02 ' 
. 43000000 + 02 . 
. 43000000 * 02 « 
. 43000000 + 02 , 
, 64000000 * 02 * 
. 64000000 * 02 , 
. 64000000 * 02 , 
. 64000000 + 02 * 
. 64000000 + 02 . 
• 11500000 + 03 , 
. 11500000 + 03 , 
. 11500000 + 03 , 
. 00000000 + 00 ' 
. 00000000 + 00 ' 
. 49000000 + 03 ' 
, 49000000 + 03 . 
. 49000000 + 03 . 
. 49000000 + 03 . 
. 49000000 + 03 , 
. 23000000 + 00 * 
. 23000000 + 00 * 
. 23000000 + 00 * 
. 23000000 + 00 ' 
. 23000000 + 00 ' 
• 10000000 + 21 . 
. 10000000 + 21 , 
. 10000000 + 21 , 
. 10000000 + 21 , 
• 10000000 + 21 , 
. 10999999 + 00 ' 
. 10999999 + 00 ' 
. 10999999 + 00 ' 
. 10999999 + 00 ' 
. 10999999 + 00 ' 
. 25000000 + 00 ' 
. 35100000 + 00 ' 
. 25000000 + 00 ' 
. 25000000 + 00 ' 
. 25000000 + 00 ' 


.61709999+01 
.61799999+01 
. 61799999 + 01 
.00000000+00 
. 61799999 + 01 
.61799999+01 
. 61799999+01 
.61799999*01 

. onnooooo+oo 

.375(10000 + 03 
,37500000+03 
. .37500000 + 03 
. 3 7 5 0 0 1: 0 J + 0 3 
.00000000+00 
. 30000000-03 
.30000000-03 
. 30000000-03 
.30000000-03 
. 30000000-03 
.43000000+02 
. 36fi00n00 + G2 
. 43000000 + 02 
• 43000000 + 02 
. 00000000 + 00 
.64000000+02 
. 64[)Q000n + 02 
.64000000+02 
.64000000+02 
. 00000000+00 
.11500000+03 
.11500000+03 
. 00000000+00 
. 00000'i0:: + 00 
. 00000000+00 
,49000000+03 
.49000000+03 
.49ri00000 + 03 
. 49n oono r;+03 
. 00000000+00 
.23000000+00 
.23000000+00 
.23000000+00 
.23000000+00 
. 00000000+00 
. 10000000+21 
, 10000000+21 
. 10000000+21 
. 10 ( 100000+21 
. 00000000+00 
. 10999999+00 
.10999999+00 
. 10999999+00 
. 10999999 + 00 
. 00000000+00 
.25000000+00 
,35100000+00 
.25000000+00 
.25000000+00 
.25000000+00 
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. 61 799990+ni* 
. 6179999'i + iji . 
. 61.799999 + 1)1 . 
. OUOi'OOOO + OC. 
,61799999 + 01.. 
.61799999+01. 
.61799999+01 . 
, 61799999 + r. ' , 

.ooooooon+oo, 
. 37500000+03, 
.37500000+03, 
. 37500000 + 03. 
. 37500000 + 03, 
.00000000 +00, 
. 30000000-, ,3, 
. 3(1000000-03, 
.30000000-03, 
. 3 ij 0 ; 1 0 0 0 0 - U 3 , 
.30000000-03, 
. 36000000+02, 
. 36000000+02 . 
,43000000+02, 
.43000000+02, 
.00000000+00 , 
.64000000+02, 
. 64000000+02 , 
.64000000+02, 
.64000000+02. 
.00000000+00, 
. 11500000 + 03, 
. 11500000 + 03, 
.00000000+00, 
.00000000+00, 
.00000000+00, 
.49000000+03, 
.49000000+03. 
.49000000+03. 
.49000000+03, 
.00000000+00. 
.23000000+00, 
,23000000+00, 
.23000000+00, 
.23000000+00, 
.00000000+00, 
,10000000+21, 
,10000000+21, 
.10000000+21, 
.10000000+21, 
.00000000+00, 
, 10999999 + 00, 
,10999999+00, 
,10999999+00, 
. 10999999+00, 
.00000000+00, 
.35100000+00, 
,35100000+00, 
.25000000+00, 
,25000000+00, 
,25000000+00, 
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NPSLT 

- 

1 

* 

10. 

N[)tf 4 

= 

2. 



NDXNAC 

3 

9, 



Nt'COlJT 

- 

1 , 



MDX1 

= 

18, 



\DXM 

r 

9, 



NOG 

= 

1 . 



POUT 

= 

• 11000000 + 02, 

.33000000+01* 

. 24500000+03, 



.33700000+03, 

.11700000+03, 

. 82000000+02 . 



.45000000+02, 

.34400000+02, 


TIMET 

r 

.10000000-04. 

.20000000-02. 

. 89999998-01 , 



.30060000+00. 

. 59999999+00* 

. 75000000+00, 



.12000000+01, 

.20000000+01, 


PUMP 

= 

•OOOuOOOO+no . 

.45000000+00* 

.50000000+00, 



.10000000+04. 

.25000000+02, 

. 25000300+02 , 



.25000000+02, 

.25000000+02, 


VPUMP 

= 

.25000000+05, 

.250000! 0+05. 

. 13000000+05. 



.13000000+05, 

•oooooono+oo. 

. 00000000+00 , 



.00000000+00, 

.00000000+00, 


I USPRB 

= 

1. 

1. 

1, 



1 , 

1, 

1. 



1 . 

1. 

1, 



3. 

3. 

3, 



3, 

3. 

3, 

CPL 

z 

.10230000+01, 

. 10000000+01, 


DP 

z 

•64199999-02. 

.64199999-02* 

. 64199999-02, 



.64199999-02, 

.64199999-02, 

. 64199999-02, 



.64199999-02, 

.64199999-02* 

.64199999-02* 



.64199999-02. 

.64199999-02* 

. 64199999-02 . 



.64199999-02. 

.64199999-02* 

.64199999-02, 

SEND 

iMBA 

HXG 


.10099999+00. 

. 10099999+00* 

.10099999+00, 



.10099999+00, 

.10099999+00* 

.10099999 + 00 , 



■10099999+00. 

.10099999+00* 

.10099999+00, 



•10099999+00. 

. 100^9999+00 * 

. 10099999+00 . 



.10099999+00, 

. 10099999+00* 

■00000000+00, 

HXS 

z 

.68499999+00, 

. 68499999+00* 

. 68499999+00, 



. 79500000+02. 

.79500000+02* 

,79500000+02, 



.79500000+02, • 

. 68499999+00* 

. 68499999+00, 



.68499999+00. 

.68499999+00* 

.68499999+00, 



. 68499999 + 00 . 

.20000000+01, 

.ooooooon+oo, 

HXC 

z 

•20000000+00, 

.20000000+00* 

.20000000+00, 



.20000000+00, 

.20000000+00* 

. 20000000+00. 



.20000000+00, 

. 20000000+00* 

. 20000000 + 00 . 



.200 JOOOO+OO , 

. 69999999 + 00 > 

.33000000+01, 



.33000000+01, 

. 33000000+01, 

. DOOOOOOO+OO, 

HSG 

z 

.20000000+02. 

.20000000+02, 

.20000000+02, 



•20000000+02, 

.20000000+02* 

.20000000+02, 



•20000000+02, 

.20000000+02. 

.20000000+02, 



.20000000+02. 

.20000000+02, 

.20000000+02, 



.20000000+02, 

.20000000+02, 

, oonoocon+oo, 

SK 

z 

•00000000+00. 

.99999998-01, 

.99999998-01, 



•11600000+02, 

.11600000+02, 

. 11600000+02, 



.11630000+02. 

.58000000+01, 

.99999998-01, 



.99999998-01, 

.99999998-01, 

. 99999998-01 » 



.99999998-01, 

.99999998-01, 

. 00000000+00. 

TKX 

s 

•00030000+00, 

.90000000+01, 

.90000000+01. 



.90000000+01, 

. 9000QUOO+01, 

.90000000+01, 



.90000000+01, 

.90000000+01. 

. 901)00000+01, 
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.575OO’OO0 + (13. 
.62000000+02. 

. .1 9000000 + 00 . 

. ic5ooooo+ni . 

, 9rjon0O'Ji'. + Ol . 

.25000000+02. 

. 13000000+06, 
. 00000000+00 , 


1 . 
1, 
3, 


.64199999-02, 

.64199999-02, 

.64199999-02, 

.64199999-02, 

.64199999-0?. 


. ,10099999 + 00 
.10099999+00 

.10099999+00 

. It) 099999 + OC 
. 00000000+00 
. 79600000+02 
. 79500000+02 
.68499999+00 
.68499999+00 
, 00000000+00 
. 20000000+00 
. 20000000+00 
. 20000000+00 
.33000000+01 
. 00000000+00 
. 20000000+02 
. 20000000+02 
, 20000000+02 
. 20000000+02 
. 00000000+00 
.58000000+01 
. 11600000+02 
.99999998-01 
.99999998-01 
. 00000000+00 
.90000000+01 
.90000000+01 
.90000000+01 
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. 9(JOUOOOO + Ol . 

.90000000+01. 

.90000000+01 . 

.9rjonunon+-~' : . 



. 9uououon+oi . 

. 90000000+01 . 

. oooooono+on , 

. nnooanon + riu , 

UH 

- 

. 4oouoono+o3 > 

.40000000+03, 

,40000000+03, 

. 4 fi fj n 0 0 rj il + r 3 , 



. 40000000+03. 

.40000000+03. 

.40000000+0 

. 4;iunonon + h3 . 



.400110000 + 03, 

.40000000+03, 

.40000000+03. 

, 14000000 + ^4 , 



.14OUOU00+04, 

. 14000000 + 04 , 

. 14000000+04 , 

.1400000(1 + 04 ,' 



.14000000+04, 

.14000000+04 , 

. 14000000 + 04 , 

. 1 4 000 000 + (t 4 

OIF 

- 

. 99 V V9998 - Q4 . 

. 99999998-04 . 

, 99999998-04 , 

. 9999 9 998-0 4 . 



. 99999998-04 . 

.99999998-04, 

,99999998-04 . 

,99999998-1-4 , 



. 99999998-04 , 

.99999998-04, 

. 99999998-04 , 

. 99999998-0+ . 



. 99999998-04 . 

.99999998-04, 

. 99999998-04 , 

.90999990-94, 



. 99999998-04 , 

.99999996-04, 

, 99099990-04 . 

. 9999999 8 - 4 , 

UK 

— 

. 49999999-03# 

.49999999-03* 

, 49999999-03, 

.49999990-13. 



. 49999999-03. 

.49999999-03, 

.49999999-03, 

. 40999999-03. 



.49999999-03. 

.10000000-02, 

. 10000000-02, 

■ .10000000-02, 



•10000000-02. 

.10000000-02, 

.10000000*02, 

. inononoo-92. 



. lOOUOOOO-02, 

.10000000-02, 

.10000000-02, 

, 1000 00 00-02, 

T C I N 

s 

.00000000+00. 




hthi 

= 

.00000000+00. 

.onooQooo+oo, 

. oooooooo+on , 

• 0 0000 000 + J ■* t . . 



.ooouoooo+on. 

.00000000+00, 

. oonnoooo+oo , 

. ooonooon+oo . 



. 00000000+00. 

. 00000000 + 00, 

.00000000+00. 

.00000000+00, 



.00000000+00, 

.OQOOQOOO+no. 

.00000000+00 > 

,00000003+00 > 



.00000000+00. 

.00000000+00, 

, oonooono+on , 

, onononon+oc. . 

TMAX 

: 

. 40000000 + 03, 




WCC 

r 

.00000000+00, 




SEND 






iMHD 






HXG 

z 

.16100000-01. 

.15100000-01, 

.15100000-01, 

.15100000-01, 



.16100000-01, 

.15100000-01, 

. 15100000-01, 

,15100000-n. 



. 161U0000-01 , 

.15100000-01, 

. 15.100000-01 , 

,15100000-01, 



.16100000-01, 

.15100000-01, 

.15100000-01, 

.15100000-01 , 



. 16100000-C1, 

.15100000-01, 

.oonooooo+oo, 

,00000000+00, 

HXS 


.65000000+00, 

.55000000+00, 

.55000000+00, 

, 79500000+02, 



. 79500000+02, 

.79500000*02, 

.79500000+02, 

,79500000+02, 



.79500000+02, 

.55000000+00, 

.55000000+00, 

,55000000+00. 



.55000000+00. 

.55000000+00* 

.55000000+00, 

.55000000+00. 



.55000000+00. 

.18000000*01, 

,00000000+00, 

, OOOOOO0O+OG , 

HXC 

Z 

.20000000+00. 

.20000000+00* 

, 20000000+00 , 

.20000000+00, 



.20000000+00, 

.20000000+00* 

.20000000+00, 

,20000000+00, 



.20000000+00. 

.20000000+00, 

.20000000+00, 

.20000000+00, 



.20000000+00. 

.69999999+00, 

,33000000+01, 

.33000000+01, 



.33000000+01. 

.33000000+01, 

,00000000+00, 

.00000000+00, 

HSC 

z 

•30000000+01. 

. 30000000*01. 

,30000000+01, 

.30000000 + 01 , 



.30000000+01, 

.30000000+01, 

,30000000+01, 

,30000000+01, 



.30000000+01, 

.30000000+01, 

,30000000+01, 

.30000000+01, 



.30000000+01, 

.30000000+01, 

.30000000+01, 

.30000000+01 , 



.30000000+01. 

.30000000+01, 

.■00000000 + 00 , 

.00000000+00, 

SK 

z 

.00000000+00. 

.79999998-01, 

,79999998-01, 

,58000000+01 . 



.11600000+02. 

,11600000+02, 

,11600000+02, 

,11600000+02. 



.11600000+02, 

,58000000+01, 

,79999998-01, 

, 79999998-01, 



.79999998-01# 

.79999998-01* 

,79999998-01, 

,79999998-01. 



. 79999998-01. 

.79999998-01, 

,00000000+00, 

,00000000+00, 

TKX 

s 

•00000000+00, 

.90000000+01* 

,90000000+01, 

.90000000+01. 



.90000000+01. 

.90000000+01* 

.90000000+01, 

,90000000+01, 



.90000000+01. 

. 900 U 0000 + 01, 

.90000000+01, 

,90000000+01, 



.90000000+01. 

.90000000+01, 

.90000000+01, 

,90000000+01, 



.90000000+01. 

,90000000+01. 

,00000000+00, 

,00000000+00. 

OH 

S 

.40000000+03. 

.40000000+03. 

« 40000000+03, 

,40000000+03, 



.40000000+03, 

.40000000+03, 

,40000000+03, 

,40000000+03, 



.40000000*03, 

.40000000+03, 

.40000000+03, 

.14000000+04, 
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.140U0U0U+04, 

.14000000+04, 

. I4nooonu + u4 , 

. 1 4(jnOOUO + i ; 4 , 



. 1 4 0 U 0 1. 1 G 0 + 0 4 , 

.14000000+04, 

.14000000+04, 

,14000000 + 04 , 

;ji + 

= 

.99999998-04 . 

.99999998-04. 

. 99999998-04 . 

.99999998-04. 



. vy vy9yya-04 , 

,99999998-04, 

, 99999998-04 , 

.99999998-04. 
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. 99999998-04 , 

. 9999999. ; i- 0 4 . 
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.00000000+00, 




*F.Nn 







Figure 9-4. 


(Cont i nued ) 
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BED NO 2 

VOLUME AND WEIGHT 

BULK VOLUME OF C02 SORBENT (CU FT) -1978 
WEIGHT OF C02 SORBENT (LB> 7.6191 

WEIGHT OF ACTIVE C02 SORBENT (LB) 7.6191 

BULK VOLUME OF DESICCANT (CD FT) .2132 

WEIGHT OF DESICCANT (LB) 9.1663 

estimated cabin gas losses 

NITROGEN LOSS (LB/HR) .0291 

OXYGEN LOSS ( LB/HR > .0338 

Figure 9-5. Initial Sorbent Bed Size for Example No. 2 
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BED NO 2 

volume AND WEIGHT 

BULK VOLUME OF C02 SORBENT ( CU FT) .*452 
WEIGHT OF C02 SORBENT (LB) 9.2227 

WEIGHT OF ACTIVE C02 SORBENT (LB) 9.2227 

BULK VOLUME OF DESICCANT ( CU FT) .1658 

WEIGHT OF DESICCANT <LB) 7.3627 

ESTIMATED CABIN GAS LOSSES 

NITROGEN LOSS (LB/HR) .0348 

OXYGEN LOSS (LB/HR) -0395 

Figure 9-6. Sorbent Bed Sizes After 2 Days, 
Accounting for Coadsorption 
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DESORPTION TIME, MIN. 


S-70267 


Figure 9-10. Comparison of Computed Desorption Pressures with 
Test Data (Cycle 94 of 28 Day Test) 
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APPENDIX A 

SUBPROGRAM DOCUMENTATION 


This appendix contains descriptions of newly developed subprograms for 
program MAIN4B. The reader is referred to the original single bed program 
S9960 (Part I of this report) for the description of the old subprograms. 

ADS0RB 

Adsorption/gas stripping subroutine. Refer to Part I of this report. 

BED4 

The creation of this subroutine was necessitated by the impracticability 
of transferring all the bed data required in various subroutines, from one 
subroutine to another. There are a maximum of four beds in the system, and 
these data must be stored in different locations. A primary function of BED4 
is to transfer the bed data stored under dummy bed variables RDB, IDB, RMB, 
etc., to the actual variables used in adsorpt i on/desorpt i on subroutines, such as 
TG, ABED, etc., and vice versa. A logic diagram of BED4 is given in Figure A- i . 
It is apparent that, in addition to storage transfers, the subroutine controls 
various options and printouts. 

DES0RB 

This subroutine performs vacuum desorption calculations and is an 
expanded version of the original subroutine S9983. 

The new version uses a more generally applicable analysis of the vacuum 
duct, and for a CO^-save system, vacuum pump characteristics can be inputted. 

EQPWT 

This is a new equ i 1 i br i urn data subroutine, which uses a two dimensional 
interpolation scheme to find the equilibrium pressure or loading corresponding 
respectively to a given set of loading and temperature or pressure and temp- 
erature. Arguments of the subroutine are: 

ID = Index identifying sorbate, I for CO , 2 for HO, 3 for N , 

4 for 0 2 . , 

IDS0RB = Index identifying sorbent, | for 5A, 2 for S.G., 3 for 1 3 X , 

4 for 4A, 5 for 3A. 

KPW = Control index, | to find P, given W and T, 2 to find W, 
given P and T. 

P = Vapor pressure of sorbate, mm Hg. 
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Figure A- I . Logic Diagram for Subroutine BED4 
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W = Loading, (lb sorbate)/(lb dry sorbent) 

T = Temperature, °F 

The equilibrium data currently available for various sorbate-sorbent 
systems are stored in the subroutine in the form of data statements. The 
variable names used for these data are: 

TTAB (NT(lS),IS) = Temperature, °F 

WTAB (K, NT (IS), IS) = Loadi ng, (lb sorbate)/(lb dry sorbent) 

PTAB (K,NT(IS), IS) = vapor pressure, mm Hg 

NT (is) = Number of temperatures at which W versus P are tabulated 
for IS system 

IDSMTX (IDS0RB,ID) = A two-d imensional array which tabulates IS 

for each combination of IDS0RB and ID; refer 
to Table A- | . 

FC0AD 

This function subprogram determines fractional effectiveness of partially 
water-poisoned sorbents for CO^ adsorption by table look-ups. 

The coadsorption data are stored as FC0ADT (i, IDS0RB) versus H20T(l), 

I = I to 12 . 

FDEQ.ID 

No changes made; refer to Part I of this report. 

FDEQIM 

Same; refer to Part I of this report. 

FLAP 


This subroutine switches bed properties around; node I interchanges with 
node NDXl, node 2 interchanges with node (NDX I — I ) , and so forth. This is 
required when the gas flow direction is reversed as is the case where gas 
stripping is used to regenerate a bed. 


FLIP 







A 

subrout i ne 

used 

by 

FLAP 

FL0P 







A 

s ub rou t i ne 

used 

by 

FLAP 
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TABLE A- I 

TABULATION OF IS FOR EACH 
COMBINATION OF IDSORB AND ID 


v* 

(co 2 ) 

(h 2 o) 

3 

(n 2 ) 

4 

(0 2 ) 

5 

(5A) 

1 

2 

6 

7 


2 

(S.G.) 


3 




3 

(I3X) 

4 

5 

8 

9 


4 

(4A) 






5 

(3A) 
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GAST 

Refer to Part I of this report. 

GASTA 

Refer to Part I of this report. 

HXC0RE 

Same as HXC0RE in the original program except that it now solves 
Equation ( 4 ), which has a source term to account for the heater output. 

IFN 

Refer to Part I of this report. 

LAGIN2 

Refer to Part I of this report. 

NEWT02 

An iteration routine using the Newton-Wegs te i n method. 

Arguments of the subroutine are: 

Nl = Control index indicating the total number of iterations made; 
Nl should be set equal to I before NEWT02 is called. 

NG0 = Output index; | for conversion still unreached, 2 for 
conversion reached 

X = Independent variable; value of X to be found such that Y = 0. 

Y = Dependent variable, which should approach zero as a conversion 
is attai ned. 

X0 = Previous value of X. 

Y0 = Previous value of Y. 

XMIN = Minimum limit for X. 

XMAX = Maximum limit for X. 

ER = Conversion criterion. If | Y j <E R conversion has been reached. 

PRADSB 

Refer to Part I of this report. 
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PRDESB 

Refer to Part I of this report. 

PRDESB 

Refer to Part I of this report. 

READ I 

The subroutine reads in namelists ’ D B ' and 'DBA'. 

READ2 

The subroutine reads in namelist ' D B D ’ . 

READ3 

The subroutine reads in namelists 'MB' and 'MBA'. 

V. 

READ4 

The subroutine reads in namelist 'MBD'. 

START 

This is a subroutine to replace the original START and STARTA. 

TGLC0L 

Refer Part I of this report. 

TS0RB 

Refer to Part I of this report. 

TS0RBA 

Refer to Part I of this report. 

XYZMAP 

This is a two-dimensional interpolation routine. The argument variables 

are: 

IND = Option index: . IND = 0, Z = F(X,Y); IND = I, Y = F(x,z); IND = -I, 
Y = F(X). 

X,Y,Z = Independent and dependent variables. 

NP = Number of points per curve, or number of X, Y pairs for each Z. 
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NC = Number of curves, i.e., number of Z-values. 

IDX = Number of data points to be used in interpolating in X - direction. 
IDY = Number of data points to be used in interpolating in Y - direction. 
BX = First independent variable. 

BY = Second independent variable. 

ANS = Dependent variable found corresponding to BX, BY. In another 
word, = XYZMAP. 
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APPENDIX B 

PROGRAM LISTING 
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APPENDIX B 


PROGRAM LISTING 

This appendix contains a total listing of program MAIN4B. 
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0130001 

000002 

000003 

000(104 

000005 

000006 

000007 

000008 

000009 

000010 

oooon 

000012 

000013 

000014 

000015 

000016 

0C0017 

000018 

000019 

000020 

000021 

000022 

000023 

000024 

000025 

000026 

000027 

000028 

000029 

000030 

000031 

000032 

000033 

000034 

000035 

000036 

000037 

000038 

000039 

000040 

000041 

000042 

000043 

000044 

000045 

000046 

000047 

000048 

000049 

000050 

000051 

000052 

000053 

000054 

000055 

000056 

000057 

000058 


ELT ADSORB. 1. 710719. 62333 . 1 


SUBROUTINE ADSORB 

COMMON/AD/ TG< 20 * » PH20I .TGI ,PA . PK (2.203 .PC02I .TS (20) ‘NEW 
1 . TC (20), TX (20), TS1 <20).TS2 (20),TX1 (20),TX2 (20>.TC1 (20). ‘NEW 
2TC2 (20>. W < 4 > 20 ) iPT <20>. GMR .GMW.GVIS. PN2.P.02, ‘NEW 

3 ABED<20) . AVC(20 ) , ASG(20) . ASX(20) , AGX(20 ) . AXC(20 ) . ‘NEW 

4 AVX ( 20 ) . RHOG( 20 ) , RH0S9( 20 > , RHOSf 20 ) , RHOC ( 20 ) , RHOX( 20 ) , »NEW 
5CPG( 20 ) .CPC( 20 ) .CPX( 20 ) ,CPS<20 ) . DX . CPL ( 2 ) , DP ( 20 > • ‘NEK 
6P0UT < 10 ) . TIMET( 10) , WTACMS. WTSG , PUMP < 10 ) . VPUM P( 10 ) »CPP( 20) , ‘NEW 
7NPSET < 3 ) , NDR4 . NDXMAC , NBCOUT , NDX1 . NDXM. NOG , IDS0RB<20> . ‘NEW 
8 rlXG(2Q)>HXS(2Q).HXC<20).HSG(20), ‘NEW 
9SX(20>.TKX(20).DH(20).DIF(20),GK(20) , UC ( 20 ) . T268 . T0TC02 . T0TH20, ‘NEW 
1 SUMPTM . AVMSL1>AVSGL1,HTR(20)>TMAX, ‘NEW 
1 TOTKVJH, HTR1 ( 20 ) > WC . TOTHTC. WCC . PC02A . VC02A . SABC02, TC02A. ‘NEW 
1RSK2U.9), A(20).E(20).C(20),VS(20).DVS(20)»DVS1(20>.RS(20), ‘NEW 
lUG(20).PS(20).DS(20),CSl(20>.CS2(20).Cl(4,20).C2(4.20),Dl(4,2n), ‘NEW 
202(20). PC1(20> >PC2( 20 ) . pC3( 20 ) . C1P( 20 > . C2P(20 > .C3P( 2Q ) .DIP ( 20 ) . ‘NEW 
3ER ( 2 , 20 ) , P1(20).P2(20).P3(20).WS(20).CR1(20.4).CR2(20,4).CR3 ‘MEW 
4(20,4). C3( 4. 20) >B( 4 . 20> > Q( 4 , 20) ,CP1( 20 ) ,CP2(20) . X( 20 ). V0IDF( 20 ) . ‘NEW 

5 WM<2). TIME. CYCLE, DTO. OTMAX . W I . T I . PC02C . ‘NEW 
6V0LCAB > RC02C , ‘NEW 
7NCYCLT.NPRINT.NCVCLE, NDTCON.NTEMP.NSTART. NPR.OT.DTTf 4 ) ,SA6C0S ‘NEW 

Double precision. ci.c2. 01 . 02 . pci. PC2.PC3. pi. p2,p 3,C3, a. b, «new 
1 CP1.CP2.X. C1P.C2P.C3P.D1P ‘NEW 
DIMENSION AS(2Q) “-1 


Equivalence < asx. axs) • ( agx, axg) . ( asg. ags > . (hxs.hsx). (hxg.mgx) . (hsg 
1 ■ HGS ) 

DATA RGAS/554./ 

C 

N0R=NDR4-1 

DO 21 N=1.N0X1 

AS(N ) = 4 . ‘3 . 1416«RS( N) “2 

I*N 

DO 20 NR=1.NDR4 
Cl(NR.N)«-CR2« I -NR) 

C2( NR ,N) =CR1< I . MR )/0T+CR2( I , NR )+CR3( I . NR ) 

20 C3 ( NR . N ) = -CR3 < I. NR) 

C 

C 

B(1.N)=C3<1.N)/C2(1.N) 

DO 21 J=2.NDR 

21 B( J.N)=C3( J.N)/(C2( J,N)-C1( J.N)‘3( J-l.N) ) 

NDX=NUX1-1 

C TO TEMPORARILY STORE SURFACE loading 
DO 50 N’l.NDXl 
50 WS( N ) =W ( NDR4 , N ) 

IF (NTEMP .EQ. 0 ) GO TO 111 
C 

C TO CALCULATE CS1.CS2.0S FOR SORBENT HEAT BALANCE EQUATION 
DO 12 N= 1 . N0X1 
I = I FN< N . NDXM ) 

CS2(N)=DT/CPS(N)/RH0S9(N)«ASG(N)‘GK(N)‘WM( I )‘DH(N> . 

CS1 ( N ) = CS2 ( N ) 

IF (N.EQ.l) GO TO 13 
IF < N. EG . NDX1 ) GO TO 14 

S1=SK(N)/DX“2‘(TS(N-1)-2.‘TS(N>*TS(N*1)) - 
GO TO 15 

13 S1 = SK<1>/0X“2*(TS<2>-TS(1>> 

GO TO 15 
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000359 14 Sl=SK(N0Xl)/D>:»»2»(TS<N0X)-TS(N0ia)) 

00U060 13 D3U)>=Dr/CPS(tn/RM0S8(N7»(Sl + ASG(N>»HSG<N)‘‘ITG<N>-0.5»1S2<N>> + 

000061 14SX( N ! »HXS(N><*( TX < N|) -0 . 5»TS2 < N) > ) 

oono 62 ratio = <dt+dto>/ot 

000063 T = (OT^DTO)/CPS(rJ)/RHOSB(N> 

000064 Tl = 0.6»T«(ASG(N> <> HSG(M> + ASX(N>»HXS<N)) 

000065 CS1<N>=RATI0»CS.I<N>/(1.+T1> 

000066 C32<N)=RaT10»CS2(M>/(1.+T1> 

000067 DS<N)=RAT10«P5(N) 

000068 OSIN)- (DS(N)-T'<'TS2(M))2!l.+Tl> 

000069 12 CONTINUE 

000070 . GO TO 110 

000071 111 00 112 6= 1» NQX1 

000072 CSKNMO. 

000073 CS2 I N > = 0 . 

000074 DS(N)=0. 

U 0 0 0 7 5 ' TS(N)=T268 

000076 TC(N)=T268 

000077 ' T X < N ) -T268 

000078 TC(N)=T26fl 

U00079 112 CONTIMUE 

000080 110 CONTINUE 

000081 C 

000082 C TO CALCULATE PARTIAL PRESSURE OF ADSORBATE IN GAS STREAM 

r 000083 c 

000084 DO 24 N=1.NDX1 

030005 I = I FN ( N > NDXM ) 

000086 C TO CALCULATE P1.P2.P3 

000087 WSURF=W<NDR4,N> 

0300R8 CALL EUPWTt I , IDSORBC N ) . 1 > PSURF , WSURF . TS2< N > ) 

000089 CALL EQPWTt 1 , IDS0RB(N).1.PS1. WSURF .( TS2( N > +0 . 02 > > 

000090 DPKDTS'CPS1~PSURF)/0.02 

000091 CALL EOPWTI I > I QS(.RB( N ) • 1 • PS2 > ( WSJRF+1 . E"5 ) • TS2< N) ) 

000092 DPKDWK=(PS2-PSURF)/l.F-5 

000093 G=1.+CS2(N)«0PKDTS 

000094 PI ( N ) = ( PSURF ♦OS(N)*DPKDTS)/G 

000095 P2(N)"L)PKUWK/G 

000096 P3( N i =CSl(N VG*OPK0TS 

000097 C 

000098 C2 ( NDR4 i N ) = CR1 ( N . NDR4 ) /QT+CR2 ( N > N0R4 ) +WM ( I )»GK(!J)®P2(N)«AS(N) 

000099 C3 t NDR4 . N ) s 0 . 0 

000100 DO 23 NR=1.NDR4 

000101 25 D1(NR.N)=CR1(N,NR)/DT»W<NR.N> 

000102 DU NDR4.N)=D1<NDR4,N>-WM< I > *GK ( N )•( PI <N ) -P2(N><*W< NDR4 . N > ) »AS (N ) 

000103 02( N ) = AS ( N )«WM( 1 )«GK( N ) » < 1. -P3(N>) 

000104 D2(N) = D2(N)/(C2'NDR4,N)-CKNDR4.N)*B(NDR4-1.N) ) 

000105 Q(1.N)=D1(1»N)/C2(1.N) 

000106 00 24 J=2 . NDR4 

000107 24 Q< J,N)s.(DK J.N)-C1< J,N)»S( J-1,N> ) / 1 C2 ( J . N ) -Cl ( J.N)*B( J-l.N) ) 

000108 C 

( 000109 DO 25 Nn.NDXl 

000110 I = IPN( N.NDXM) 

000111 CP1(N) = ASG(N)*GK(N!»(F1(N)+P2(N)»(3( NDR4 , N ) -W ( NDR4 . N ) ) ) 

000112 25 CP2(N)=ASG(N)»GK(N)»(32(N)»D2(N)*P3(N)-1.0) 

000113 PK<l»NDXl+l> s PC02I 

000114 PK( 2 > NDX1+1 ) = PH20I 

000115 DO 26 N=1.NDX1 

000116 N1=NDX1+1-N 

000117 I = IFN( N1 i NDXM ! 

000118 PKU.N1> = <PK( !.N1 + 1)/DX + CP1(N1)/A(N1)) 
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000119 

000120 

000121 

000122 

000123 

000124 

000125 

000126 

000127 

000128 

000129 

000130 

000131 

000132 

000133 

000134 

000135 

000136 

000137 

000138 

000139 

0Q014Q 

000141 

000142 

000143 

000144 

000145 

000146 


1 /(1./DX-CP2<N1)/ACN1>> 

IF <I.EQ.1>.J*2 
: I F (- 1 .EQ-2>jn 
PKt J.N1)=PK< J-Nl+1) 

26 CONTINUE 
C 

c 

c 

C ro calculate sorbent loading 

c 

DO 30 N = 1 > N0X1 
I = I FN ( N • NOXM ) 

W(NDR4.N)*Q(NDR4».N)+02tN>«PK( I .N) 

DO 30 J = 2 > NDR4 
L=N0R4+1-J 

30 W(L.N)=Q(L.N)-a(LiN)«w<L + l<N> 

C 

C 

I F ( NTEMP . EQ. 0) RETURN 

C TO CALCULATE SORBENT , GLYCOL . HX CORE AND GaS TEMPERATURES 
C 

CALL TSCRBA 

CALL TGLC0L<TC»NDX1.UC.RH0C.CPC»CX» AXC,HXC.T268.TX.DX.DT. 
1AVC. NOG ,0T0.TS1.TS2.TX1,TX2.TC1.TC2> 

CALL HXCORE 

Call CAST A ( GMR.CPG, ABED.N0X1.TGI.ASG.HSG. axg.hxg,dx.tg,ts.tx> 

RETURN 

END 
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* F.LT BED 4 , 1 , 710720 , 31270 , 1 


000001 
U JOC02 
■jJnao3 
000004 
000005 
050006 
000007 
000008 
000009 
000010 
J00011 
000012 
000013 
J; >0014 
000015 
0-00016 
000017 
010018 
000019 
000020 
000021 
0<J0022 
000023 
000024 
030025 
(.'00026 
300027 
UJ0028 
000029 
000030 
000031 
030032 
000033 
030034 
000035 
000036 
000037 
000038 
000039 
300040 
000041 
000042 
010043 
000044 
030045 
330046 
000047 
000048 
(100049 
000050 
000051 
000052 
030053 
000054 
000055 
000056 
030057 
300058 


SUBROUTINE UED4< IbED. IFLIP, lAD.RBM.RB. 1B.RBAD, ISTOPC.KBED) 

COMMON/ AD/ TG( 20 > i PH20I 'TGI .PA . PK. < 2 . 20 ) . PC02 1 . Ts (20) 

l.TC (20). TX (20), TS1 (20J.TS2 (20).1X1 (20),TX2 (20). TCI (20). 
2TC2 120 > .W (4,20),PT (20). GMR ,GHV,GV1&. PN2.P02. 

3 ABeD ( 20).AVC(2d).ASG(20).ASX(20).AGX(20),AXC<20). 

4*9X120). RHOG ( 20 ) . SH0S3( 20 ) . RHOSl 20 ) . RHOC I 20 ) . RHOX ( 20 > , 

5CPG < 2G } .CPC (20) ,CPX(20 ) , CPS ( 20 ) . DX , CPU ( 2 ) , DPI 20 ) , 

6P0UT( m > , TIMET< 10) , WTACMS.WTSG , PUMP ( 10 ) . VPUMP ( 10 ) . CPP< 20 > , 

7NPSET ( 3 I .M0R4,N0XmAC.mBC0UT,N0X1.NDXM.N0G. IDSORB(20> . 

8 HXG(20).HXS(20),HXC<20),HSG(20). 

9SK3 20 >, TKX(20),DH(20).DIF(20).GK(20) . UC( 20 ) . T268 , T0TC02 . T0TH20 , 
1SUMPTM, AVHSU1, AVSGL1.RTRC20) ■ TMAX. 

1 TOTKWh.HTRK20>.WC.TOTHTC,WCC.PC02A. VC02A,SABC02. TC02A . 

3 RSI (20. 9). A(20).F(2D).C(20).VS(20).DVS(20)<DVS1(20).RS(20). 

1UG(201 ,PS(20),DS(20),CS1(20).CS2(20).C1<4,20) .C2I4.20) ,01(4,20) . 
2D2(20>,PC1(20).PC2<20>.PC3(2D>.C1P(20),C2P(20),C3P(20).D1P(20>, 

3FR( 2.20 > . Pl( 20 ) . P2< 20 > . P3 ( 20 ) . WS ( 20 ) . CR1 ( 20 . 4 ) .CR2(?0. 4 > , CR3 

4(20.4), C3(4,20>,B(4,20>>Q(4,2D),CPl(20>.CP2l20).X<20).VOinF(20). 

5 VM<2). TIME, CYCLE, DTO, DTMaX, W I , T I > PC02C, 

6 VOLCAB , RC02C . 

7NCYCLT,NPRIfJT,NCVCLE. vDTCON , NTEMP, NSTART , NPR , DT - DTT ( 4 > , SABCoS 
DOUBLE PRECISION Cl • C2 . 01 • 02 . PCI . PC2 , Pc3 , PI , P2 , P3 , C3 , Q , B . 

1 CP1,CP?.,X. ClP.C2P.C3P.01P 

DIMENSION RaM<l>. R9 ( l ) . IB(1>, RBADI 1 ) . KBEDI 1 ) 

DIMENSION WN( 20 ) 

C IFLIP =0. NO FLIP. I FL 1 P=1 > FLIP WILL BE CALLED 

OATA ISTaPT/0/ 

C 

DO 110 N = 1 ■ 349 

110 TG(N)=RBM<N> 

00111 M=l. 4Q5 

111 ABEO ( N ) -RB( N ) 

00112 N= 1.29 

112 NPSET ( M ) 5 I8( N) 

DO 13 N=1.25l 

13 HXG(N)=RBAD(N) 

IFlKBEDl IBED) ,EQ, 0) GO TO 90 
8976 FORMAT ( 125) 

NDX1U=NDX1 9 THESE TWO CARDS ARE ENTROPY GENERATORS 

NDXlaNOXlP 

SABC02=SARC0$ 

IFIISTOPC > ME i 0) SABC02 = 0.0 
DO 1311 N= 1. NDXi 
HTR(NKHTRKN) 

IFIISTOPC .NE, 0) GO TO 3198 
IF(TS'rJ) .GT. TMAX) GO TO 3198 
GO TO 1311 

3198 DO 411 J= 1, NDXI 
411 HTR(J) = 0.0 
GO TO 66 
1311 CONTINUE 
66 CONTINUE 

!START=ISTART*1 

IFlTIME .LT. 1.1E-5) GO TO 80 

GO TO 81 

BO SUMPTM=0 . 0 . 

TOTKWH = 0 ,0 
TOTC02=0.0 
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000059 


T OTH2O=0 . 

U00U60 


T OTHT C = U . 0 

U00061 


IF( ISTaRT ,GT, 4 ) GO TO 81 

000062 

c 


U 00 06 3 


ASSIGN 82 TO NPRS9R 

I J 0 0 0 6 4 


GO TO 183 

0JU065 

82 

CONTINUE 

UU0066 

C 


000067 

81 

wc=WCC 

000068 


I r ( ISTuPC-NE • 0 > wc = 0 

U00069 


DO 801 N = 1 , NDX1 

000070 


ac=ahf.o<n)»as>;(N)/avc(N.) i " * 

UU0071 

801 

UC(N)=wC/AC/RuOC(K|) * 

000072 


IFIIFLIP.NE.O) call Flap 

O00073 

15 

GO TO (16.17.18 ). I AO 

000074 

16 

call start 

000075 


call adsorb 

000076 


SlIMPTM* SUMPTm+pk(2.1)*DT 

000077 


GO TO 19 

000078 

IV 

call start 

000079 


call desorb 

000080 

19 

AUT = llTMAX 

000081 


00 60 N= 1 . NOXl. 4 

000082 


ADT2=WI /(ABS<W<N0R4.M)-WS(N) >+l.E-9)*DT 

000083 


I F ( ADT2 • LT , AOT) ADT = ADT2 

000084 


AOT2=TI/(ABS( TS(N)-TS2(N))+1.E-9)»DT«2.D 

0GU085 


I F ( ADT2 • LT . ADD ADT = ADT2 

000086 


ADT2=T I 7 ( ABS( TX(N)-TX2(N))+1.E-9)*DT»2.0 

000087 


IC(ADT2.I-T. AUT) ADT=ADT2 

000088 


A0T2 = TI7( ABS< TCOO-TC2(N> )*1 . E-9 > »DT»2 . 0 

000089 


IF < ADT2 • LT . AUT) AOT*ADT2 

000090 

60 

CONTINUE 

010091 


IFIADT.lt. 1 . E-5 ) ADT = 1 .E-5 

000092 


OTT( IBEO-AOT 

000093 


DO 21 N = 1 1 NUXl 

000094 


TS2 1 N ) = TS1 ( M ) 

000095 


TS1 ( N > = TS < N ) 

000096 


TX2CN>=TX1(N) 

000097 


TX1 ( N > = TX < N ) 

000098 


TC2(N)=TC11N) 

000099 


TC1(N'=TC<N) 

000100 

21 

CONTINUE 

000101 


IF ( IFLIP .NE. 0> CALL FLAP 

000102 


DO 211 N = 1. NDX1- 

000103 

211 

TOTKWH=TOTKWH*DT*HTR( N1/3A10. 

000104 


TOTHTC=TOTHTC*WC®CPC( NOG )»DT«I T268-TCI NDXi ) ) 

COOl 05 


I F C 

000106 

1 

( (TIME. LT. 1,16-5). OR. (TIME, GE . CYCLE ). OR . 1 NPR/NPR I NT »NPR I NT 

000107 

2.EQ.NPR) > -AND, ( NCYCLE'. GE'» NSTARTJ) GO. TO 130 

000108 


GO TO 33 

0O0109 

130 

continue 

010110 ' ' ' 


GO T0< l3l • 32) , 1 AO -■ 

000111 

131 

CALL PRADSBI I BED) 

000112 


GO TO 33 

000113 

32 

CALL PrDESBI I 8EO > 

000114 


GO TO 33 

000115 

33 

DO 20 N = 1 * 349 

000116' ~ ' 

20 

RBM(N) = TG<N)' 

000117 


00 23 N=l«25l 

000118 

23 

RBAD(N)=HXG(N) 
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0 00119 


DO 41 N= 1> 4 05 

J0P120 


41 RB ( N > = ABED ( N > 

000121 


DO 181 N = 1 > 29 

000122 


181 IH(N)=nPSET(N) 

000123 


RETURM 

000124 


16 SUMC.OS = 0. 

000125 


IFiNDXM.EQ.NDXDCALL EXIT 

000126 


N06=NDXM + 1 

000127 


DO 42 N=NDB.NOXl 

000128 


CALL LQPWTf 1. I0SORB(N) . 2.3. , WN1.' 

000129 


WNl N)-WN1»ABED(N)»DX»9H0SB(N) 

000130 


SUMCOS-SUMCOS+WN< 'J)«FC04D( IDSORB 

000131 


42 CONTINUE 

000132 


DO 43 N=NDB,N0X1 

000133 


0IF<N>=D1F<1) 

000134 


GK(N)=GK(1) 

JO0135 


DH(N)=DH(1) 

000136 


IF(SUMCCS-WN<M) 146.44,44 

000137 


46 CONTINUE 

000138 


FRHO=SUMCOS/WN(N) 

000139 


DRH0sRh0SB(N)»(1.-FRH0) 

000140 


RH0SB(N)= RHOSB<N)»FRhO 

000141 


IFIN.lt. N 0X1) GO TO 5l 

000142 


RHOSB< N + 1 > *ORno 

000143 


GO TO 50 

000144 


5l NTDB=MDX1-N 

000145 


URH01 = 0RH0/:iTDB 

000146 


K1 =N+1 

000147 


DO 53 K=K1.NDX1 

000148 


53 RHOSB(K>=RHOSf)(K)+0RHOl 

000149 


50 NDXM=N 

000150 


NDXMAC=N 

U00151 


ASG(N)=ASG<1)«RHOSB<N)/RHOSB( 1) 

000152 


IFtN.EQ.NDXDNDXlsNOXl+l 

000153 


GO TO 47 

000154 


44 SUMCOS=SUMCQS-WN(N> 

000155 


ASG(N)=ASG(11»RHOSB(N)/RHOSB(1) 

000156 


I F ( SUMC05 . LT . 1 , E~ 1 0 ) GO TO 50 

000157 


43 CONTINUE 

000158 


47 CONTINUE 

000159 


49 CONTINUE 

C 00160 


ASSIGN 83 TO NPRSBR 

000161 


GO TO 183 

000162 


83 CONTINUE 

000163 


GO TO 33 

000164 


90 CONTINUE 

000165 


PK ( 1 . 1 1 =PC02 1 

000166 


91 PK ( 2 , 1 ) =PH20 I 

000167 


TG < 1 ) = TG I 

000168 


GO TO 33 

000169 

c 


000170 

c 


000171 

c 

PftSBWT ROUTINE CCCCCCCCCC 

000172 


183 CONTINUE 

000173 


WCC=WC 

000174 


N1=NDXM+1 

000175 


VMS = 0.0 

000176 


WTMS=0.0 

000177 


VSG=0 . 0 

000178 


WTSG=0.0 
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00U179 

000180 

Q'Uilfll 

DOT m2' 
U )0183 
0 • • U 1 0 4 
o:oi 85 
000186 
0 0 0 1 8 7 
000188 
U00189 
000190 
U00191 
000192 
000193 
000194 
0X1195 
000196 
000197 
000198 
000199 
000200 
000201 
000202 
000203 
000204 
000205 
000206 
000207 
000208 
000209 
000210 
000211 
000212 
000213 
000214 
000215 
000216 
000217 
000218 
000219 
000220 
000221 
OC0222 
000223 
000224 
000225 
000226 
000227 
000228 
000229 
000230 


IFINDXH -EQ. (.1) CO TO 11 
00 10 N- 1< NPXM 
VHS=VMS+DX»ABED(N) 

WTMS = ;v’TMS+DX» ABED ( N ) « 9H0SP ( N > 

1C CONTINUE 

11 CONTINUE 

IF( (NDXl-NDXH) ,EQ. 0! GO TO 31 
DO 30 l|= Nl.NDXi 
VSG=VSG+DX»aBED(N) 

WTSG=WTSG+DX»aB£D<N)»RH0SB(N> 

30 CONTINUE 

31 CONTINUE 
WTACMS-0.0 
WN2L=0.0 
W02L- 0 . 0 
TN2=70. 

T02=70, 

' I F( MDXfIAC .EQ. 0> GO TO 12 
00 70 N= 1. NUXMAC 

CALL EQPWT(3. IDSORB(N) .2.PN2.WN2.TN2) 

CALL EQPWT ( 4 . 1DS0RB< N> > 2.P02. W02. T02) 

WN2L=Wn 2L+DX® ABED ( N ) oRHOSB ( N ) * WN2 
WO2L=WO2 L+DX«aBED(N)«RH0S&(N)»WO2 
70 WTACMS=WTACMS + DX»ABED!N)*RHOSB(N) 

12 CONTINUE 

WRITE! 6.503) I BED 

503 FORMAT! 1H1////7H BED NO 12 //// 20H VOLUME AND WEIGHT // > 

WRITE! 6.500) VMS. WTMS. WTACMS. VSG.WTSG 
500 FORMAT! 

1* BULK VOLUME OF C02 SORBENT ( CU FT) 'FB.4/ 


2’ WEIGHT OF C02 SORBENT < LB > 'FB.4/ 

3' WEIGHT OF ACTIVE C02 SORBENT (LB) 'F8.4// 
4' BULK VOLUME OF DESICCANT ! CU FT) 'FB.4/ 
5' WEIGHT OF DESICCANT <LB> 'F8.4> 


CALL START 
WN2V=0. 

W02V=0,0 

DO 600 N = 1 1 NDX1 

V0LN=ABE0<N)»0X«V010F(N) 

WN2V=Wn2V + 28. /359. »492./( 70.+460. ) /760 . »PN2» VOLN 
W02V®»02V+32. /359. ®492,/( 70. +460. >/760 , +P02+V0LN 
600 CONTINUE 

WN2L=WN2L+VN2V 
W02L=W02L+W02V 
RN2L=WN2L/CYCLE/2.0 
R02L=W02L/CYCLE/2. • 

WR I TE < 6 • 505 ) RN2L.R02L 

505 FORMAT!/////' ESTIMATED CABIN GAS LOSSES'// 

1* NITROGEN LOSS < LB/HR ) 'F8.4/ 

2' OXYGEN LOSS (LB/HR) ' FB . 4 ) 

GO TO NPRS8R 


000231 


END 


'"'.END CUR 
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» FLT DESORB. 1. 710719, 62340 . 1 


ooooru 

000002 

000003 

000004 

000005 

000006 

000007 

000008 

000009 

000010 

OCQOU 

000012 

000013 

000014 

000015 

000016 

000017 

000018 

000019 

000020 

000021 

000022 

000023 

000024 

000025 

000026 

000027 

000028 

000029 

000030 

000031 

000032 

000033 

000034 

000035 

000036 

000037 

000038 

000039 

000040 

000041 

000042 

000043 

000044 

000045 

000046 

000047 

000048 

000049 

000050 

000051 

000052 

000053 

000054 

000055 

000056 

000057 

000058 


SUBROUTINE DESORB 

c 

COMMON/AO/ TG< 20 > ,PH201 'TGI .PA . PK (2,20),PC02I . TS C20> »NEW 

l.TC (20). TX (20). TS1 (20>.TS2 (20J.TX1 (201.TX2 (20), TCI (20), "NEW 

2TC2 (20). W ( 4 . 20 > , PT (20>. GMR .GMW.GV1S. PN2.P02. «NEW 

3 ABED(20).AVC(20),ASG(20).ASX(20).AGX(20),AXC(2C). »NEW 

4 A VX ( 20 ) . RHOGf 20 > • RH0S9( 20 ) . RHOS < 20 ) • RHOC( 20 > > RHOX ( 20 ) . »NEK 

3CPG( 20 ) . CPC ( 20 > .CPX( 20 ) . CPS( 20 ) , OX, CPU 2 ) , DP< 20 ) , »NEw 

6P0UT< 10 ) , T I MET < 10 ) . WTACMS.WTSG , PUMP< 10 > . VPUMP< 10 >«CPP(20>. "NEW 

7NPSET ( 3 ) .NDR4.N0XMAC.NBC0UT.NnXl.NDXM.N0G. 1DSORB(20) . <>NEW 

8 HXG(20).RXS(20).HXC<20),HSG(20), "NEW 

9SK(20 ) ,TKX(20 ) .DH(20) .DlP( 20) ,GK(20) . UC( 20 ) . T268 . T0TC02 . T0TH20. «NEW 

1SUMPTM.AVMSL1,AVSGL1.HTR(20>.TMAX, «NEW 

1 TOTKWH.HTR1(20).WC.TOTHTC.WCC. PC02A , VC02A , SA0C02 . TC02A > «NEW 

1RSK20.9), A(20),F(20),C(20).VS!20>.OVS(20>i PVS1 ( 20 ) i RS ( 20 ) , «NEW 

1UG(20) ,PS< 20) *DS( 20), CS1‘ 20) >CS2( 20). Cl (4,20) >C2( 4,20) ,01(4,20) . "NEW 

2D2(20)>PC1(2Q),PC2(20>i b C3(20),C1P(20),C2P(20),c3P(20),D1P(20), »NEW 

3FR< 2 , 20 > . Pl(20).P2(20>.P3(20).WS(20).CRl(20.4),CR2(20.4),CR3 »NEW 

4(20.4), C3(4.2U)iB(4.20).Q(4,20),CPK20),CP2(20).X<20).VOIDF(20). «NEW 

5 WM(2),TIME, CYCLE, DTO, DTM&X.WI .T1 ,PC02C, »NF.W 

6 VOLCAU , RC02C , «NEW 

7NCYCLT,NPRINT,NCYCLE>N0TC0N.NTEMP,NSTART,NPR.PT,DTT(4) .SARCOS "NEW 

DOUBLE PRECISION Cl . C2 . Dl . D2 , PCI , PC2 , PC3 , PI , P2, P3 . C3 , Q , B . «NEW 

1 CP1.CP2.X. C1P.C2P.C3P. DIP »NEW 

D I MENS I CN A S ( 2 0 ) * P0(20) «»-l 


DIMENSION P4 ( 20 ) , V IST( 2 ) 

DOUBLE PRECISION G , OPXDTS , DPKDWK , PD 

EQUIVALENCE (ASX. AXS), ( ACX, AXC ) , ( ASG. ACS ) , ( HXS, HSX ) , ( MXG> HGX ) , ( HSC 
l.HGS) 

EQUIVALENCE (PS.P4) 

DIMENSION SPT< 10 ) i PET(lO)' 

EQUIVALENCE (SPT.VPUMP), (PET, PUMP) 

DATA VIST/0.014. 0.009/ 

DATA RGAS/554 , / 

C 

I F< T I ME .LE.1.E-5)PF13«3. 

N0R=N0R4-1 
DO 21 N = 1 , NDX1 
J = 2 

P4(N)=PT(N) 

AS(N)=4.»3.1414»RS(N)»»2 
I = I FN ( N . NOXM ) 

I F ( I .EQ. 2) J=1 

VIS= X(N)*VIST( I )*(1 ,-X(N) > • V I ST ( J ) 
F(N)=2.494E-4»PT(N)»o0.795»(VlS/O.Ol74) 

DO 20 NR=1 , N0R4 
I =N 

Cl(NR.N)=-CR2( I .NR) 

C2( NR , N > = CR1< I ,NR)/0T*CR2( I , NR )*CR3 ( I , NR ) 

20 C3( NR, N ) s -CR3( I .NR) 

C 

C 

B(1.N)=C3(1,N>/C2<1.N> 

DO 21 J 3 2.NDR 

21 B( J.N)=C3( J.N)/(C2(J,N!-Cl( J,N)*B( J-1,N) ) 

NDX=N0X1-1 

C TO temporarily STORE surface loading 
DO 50 Nn.NDXl 
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000059 


50 

WS(N)=W<NDR4.M) 

000060 

C 



0 0 U 0 6 1 

C 


TO CALCULATE CS1.CS2.0S for SORBENT heat balance equation 

000062 



IF (NTEMP ,EQ. 0 } GO TO 111 

000063 



DO 12 N = 1 » NDXl ' 

000064 



I=1FN<N.N0XM> 

000065 



CS2(N>=0T/CPS!N)/RH0S9(N)®ASG{N)»GK(N)»WM( I )«UH(N) 

000066 



CSl(N) = CS2(N)»X<N> 

000067 



IF (N.EG.l) GO. TO i.3 - 

000068 



IF (N.EG.NDXD GO TO 14 

0U0069 



S1=SK(N)/DX««2»(TS(N-1)-2.»TS(N>*TS(N+1> ) 

000070 



GO TO 15 

000071 


13 

S1*SKU>/DX»»2»ITS<2)-TS<1>> 

000072 



GO. TO 15 . . 

000073 


14 

S1=SK(N0X1 >/DX«<*2«(TSf NOX)-TS(NOXl) > 

000074 


15 

OS I N) = OT/CPS(N>/RWOSB<N)»<S1 + ASG( M>«HSg<N>»< Tg(N)-0.5«TS2( 

000075 



1 ASX < N ) »HXS (N)«(TX(N)-0. 5*TS2< N ) ) ) 

000076 



RATIO = (OT+OTQl/OT 

000077 



T = ( DT+OTO ) /CPS< N ) /RhOSB < N ) 

000078 



Tl = Q.5«To( ASG < N > *HSG( N ) * ASX( N ) »HXS( N ) > 

000079 



CS1(N)-RATI0»CSKN)/(1. + T1) 

000080 



CS2<N'=RaTI0«CS2<N)/(1.*T1) 

000081 



0S(N)=RAT10»0S(N> 

000082 



DS(N)= (DS(N)-Tl»TS2('i))/<l.+Tl) 

000083 


12 

CONTINUE 

000084 



GO TO 110 

000085 


111 

DO 112 N=1.N0X1 

000086 



CS1< N ) = 0 . 

000087 



CS2 ( N ) = 0 . 

000088 



DS I N ) =0 • 

000009 



TS(N)=T268 

000090 



TC(N)=!26fl 

000091 



TX ( N ) = T268 

000092 



TG(N)=T268 

000093 


112 

CONTINUE 

000094 


110 

CONTINUE 

000095 

C 



000096 

C 


TO CALCULATE TOTAL PRESSURE 

000097 

C 



000098 



DO 24 N°1 i NDX1 

000099 



1 = I FN < N • NDXM ) 

000100 

c 


TO CALCULATE P1.P2.P3 

000101 



WSURF=WCNDR4,M) 

000102 



CALL EQPWT ( 1 > IDSORBI N> . 1 > PSURF . WSURF • TS2( N) ) 

000103 



CALL EQPWT ( I » IDSORB ( N ) . 1 > PS1 > WSURF .( TS2( N ) +0 . 02 ) > 

000104 



DPKDTS=(PS1 -PSURF )/o, 02 

000105 



CALL EQPWT! I . IDS0RB!N>.1.PS2.<WSURF + 1.E-5>.TS2(N>V 

000106 



DPKDWK=(PS2-PSURF)/l.E-5 

000107 



G = 1 .+CS2<N)»0PKDTS 

000108 



PI ( N ) = ( PSURF *DS(N)«DPKDTS)/G 

000109 



P2(N)=DPK0WK/G 

000110 



P3(N)=CSl(N)/'G»DPK0TS 

000111 

C 



000112 



C2(NDR4.N)=CR1(N.N0R4)/0T+CR2(N.NDR4)*WM( I ) »GKt N ) «P2C N ) « AS 

000113 



C3(NOR4,N)=0.0 

000114 



DO 23 NR=1.NQR4 

000115 


23 

dknr.n)=cri<n,nr)/dt»w(Nr.n) 

000116 



DKNDR4,N)=D1(N0R«.N}-WW( I )»GK< N)*( PI ( N>-P2( N>»W( N0R4.N) )», 

0C0117 



D2(N) = AS(N)«WM( I )»GK(N)»!X(N) -P3(N) ) 

000118 



Q2<N)=U2<N)/(C2<NDR4,N)-CKNDR4,N>»B<NDR4-1.N>) 
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r~ 


000119 

000120 

000121 

000122 

000123 

000124 

000125 

000126 

000127 

000128 

000129 

000130 

000131 

000132 

000133 

000134 

000135 

000136 

000137 

000138 

000139 

00014Q 

000141 

000142 

000143 

000144 

000145 

000146 

000147 

000148 

000149 

000150 

000151 

000152 

000153 

000154 

000155 

000156 

000157 

000158 

000159 

000160 

000161 

000162 

000163 

000164 

000165 

000166 

000167 

000168 

000169 

000170 

000171 

000172 

000173 

000174 

000175 

000176 

000177 

000178 


Q(1>N)=D1(1>N>/C2(1.N> 

DO 24 J=2,NDR4 

24 Q( J,N>=<D1( J.M)-C1( J-1.N> )/(C2< J.NI-CK J, N)«B< J-l . N) ) 

C 

C COEFFICIENTS FQR P-EQUATION 

DO 25 N=2,NDX 

25 PC2<N) * PT(N)/< V01DF(N)»C(N)«ABE0(N> )•( V0IDF(N+1)«C(N+1)»ABED(N+1 
1>/F(N+1> - V0I0F(N-l)»C(N-l)*ABE0<N-l)/F(N-l))/(2.«DX) 

N = 1 

PC2 < N ) .= FT(N)/(V01DF(N>»C(N>«ABE0(N) ) <• ( VO l DF < N+l > *C < N+l ) • ABED ( N+l 
1 ) /F < N*1 ) - VOIOFtN )»C(N >»ABED(N >/F(N >>/<l.*OX) 

N = NDX1 

PC 2(N> - PT(N)/(VOIOF(N)»C(N)«ABED<N))«(VOIDF(N >«C(N >oABED(N 
1)/F(N ) - V0I0F(N-1)»C(N-1)»ABED<N-1)/F(M-1))/(1.»DX) 

00 26 N=1,NDX1 
PC1(N)=PT(N)/F(N) 

26 PC3<N>=PT(N>/C(N>/V0IDF(N>»ASG<N>«GK<N) 

C 

DO 27 N=1,NDX1 

CP1(N)=PC3<N)o<P 1<N>+P2(N)«(QCNDR4.N)-W<N0R4.N) ) ) 
CP2(N)=PC3(N)o(P2<N)02<N> + P3(N> -X(N> ) 

ClP(N>=-PCl(N)/DX/DX+PC2<N)/2./DX 
C2P(N) = l./'DT+2. »PC1(N)/ / 0X/DX-CP2(N) 
C3P<N)=-PCl(N)/0X/0X-sC2(N)/2./DX 

27 DlP( N) = PT<N) /DT+CP1C N) 

C 

C BOUNDARY CONDITION FOR P-EQUAT10N 

C 

C2P(1)=C2P(1)*C1P(1> 

C1P(1)=0. 

GO TO (55.56,58.58), NBCOUT 
58 CONTINUE P PUMP CHARACTERISTIC GIVEN 
P0PI=PCC2A»51.7/PT(NDX1 ) 

CALL LAG1N2( 58 . PUMP , 1 0 , 2 , POP I . VPUMP1 . VPUMP ) 

VPUMP1= VPUMP1® ( TG(NOX1)+460. > / ( TC02A+460 . ) 

IFIVPUMPl .LT. 0.0) V°UMP1=0 . 00 

CEXIT = VPUMPl«60./( A9EO(NDX1)*VOIDF<NDX1> )/PT<NOXD 
GO TO 59 
C 

55 CONTINUE 

EMW=X(NDX1)*WM(2)*(1,-XCNDX1) >oWM(1> 

EVIS = X<NDXl)<tVIST(2)*(l.-X(NDXl) > *V I STC 1 ) 

EV I S = EV I S®0 . 01 

SQTM= SORT ( <TG(N0Xl)+460. J/1.8/EMW) 

D I A = 6 . 0 
T0TL=127. 

PTAVG=0.5»(PT( NDX1 ) +PF13 ) 

EV = 3.269E-2*PTAVG» DIA»®4/'T0TL/EVIS+ 

l3.81«DlA»*3/T0TLMSaTH+0.147*PTAVG<> DIA/EVIS) 

2/(SQTM+0 .181»PTAVS» DIA/EVIS) 

EV=EV*3600./28.3l« 

EV1=EV 
Nl = l 

91 CONTINUE 
QF=(PT(N0X1)-PF13)»EV 

CALL LAGIN2(5«,PET. 10.2.PF13.SP.SPT) 

00F=GF-SP*PF13 

CALL NEWTO2<N1iNGO»PF13,DQF.PF130.0QF0,1.E-3,PT(NDX1). 0,0111) 

GO TO (91,92),' NGO 

92 CONTINUE 
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000.179 



£V=SP«£V/iSP+EV) 

oocuno 



C2P!NDX1 )=C2P<N0Xl)+C3P(NDXl)*d.-EV»F(NDXl)<*DX/V0IDF(NDXl)/ABED 

oouim 



1 ( NDX1 ) /PT ( NDX1 ) ) 

U00182 



C3P<NDX1 1=0.000 

000183 



GO TO 57 

000184 

C 



OU0185 


59 

C2P ( NDX1 ) = C2P<NOX1)+C3P(NOXi)»(1.-OX»F<NOX1)»CEX1T) 

000186 



C3P(NDX1 >=0.0 

0U0187 



GO TO 57 

000188 


56 

CONTINUE 

000189 

C 

PRESSURES ARE SET 

000190 

c 



U00191 . 



DO 561 K = 1. 3 

000192 



I F < NPSET ( K ) .EQ. 0) GO TO 561 

U00193 



NPsNPSETOO 

000194 



C1P(NP)=0.0 

000195 



C2P( NP ' = 1 • 0 

000196 



C3P( NP ) =0 . 0 

000197 



CALL LAGIN2(10.TIMET,10.2,TIME.D1PNP .POUT) 

000198 



D1P(NP> S D1PNP 

000199 


561 

continue. 

000200 


57 

CONTINUE 

000201 



CALL FDEQID<C1P.C2P.C3P.D1P.PO.NOX1> 

000202 



00 34 N = 1 ■ NOX1 

000203 



IFCPD(N) .LE. Q.) PO(N) = l.E-3 

000204 


34 

PT<N)=PD<N> 

000205 

c 



000206 

c 


TO calculate sorbent LOADING 

000207 

c 



000208 



DO 30 N S 1 ■ NDX1 

000209 



W(N0R4,N)=a(NDR4.N)+02(N)«PT(M) 

000210 



DO 30 J=2.N0R4 

000211 



L=NDR4+1-J 

000212 


30 

W(L.N) =Q(L.N)-BILiN)»0(L*1«N> 

000213 

c 



000214 

c 


to CALCULATE STREAM composition' 

000215 

c 



000216 



FRd.l) = O.o 

000217 



FR<2,1)=0. 

000218 



FR2=0.a 

000219 



DO 3l N=1>N0X1 

000220 



I=IFN(N.NDXM) 

000221 



TEMP =C<N>»VOIDF(N) 

000222 



1/P4(N)»ABED<N) «DX«CCPl(N)+CP2(N)»PTtN) ) 

000223 



IF t I , EG • 1 3 J-2 

000224 



IF C I . EQ • 2 > J 8 1 

000225 



I F < N . EQ. 1) 60 TO 200 

000226 



FR< J,N)=FR( J.N-1) 

000227 



FR( I ,N)=TEMP*FR( I,N-1) 

000228 



IF < NDXM .EQ. 0> GO TO 202 

000229 



IF ( I .EQ. 1) GO TO 202 

DO 0230 



!F< NPS£T( 2) • . N£ , 01 SO TO 202 

000231 



GO TO 201 

000232 


200 

FRd.l) = TEMP 

000233 


202 

X ( N > = 1.0 

000234 



GO TO 31 

000235 


201 

CONTINUE 

000236 



CT=ABED<N)»OX*ASG(N)«GK<N) 

000237 



FRT= FR d . N >+FR< 2iN>*l.E*10 

000238 



PSURF = P1(N)+P2<N)«(W<nOR4,N)-WS(N))*P3(N)®PT(N» 
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000239 

000240 

000241 

000242 

000243 

000244 

000245 

000246 

000247 

000248 

000249 

000250 

000251 

000252 

000253 

000254 

D00255 

000256 

000257 

000258 

000259 

000260 

000261 

000262 

000263 

000264 

000265 

000266 

000267 

000268 

OOU269 

000270 

000271 

000272 

000273 

000274 

000275 

000276 


X(N>*( (FR(2.N-1)+CT»PSURF >/FRT/ 

1 ( 1 . +CT»PT ( N ) 7FRT ) ) 

I F ( X( N ) .LT. 0.0) X < N > 3 0 ■ 0 
IF<X(N> .GT. 1.0> X ( N ) 3 1 * 0 
31 CONTINUE 

00 33 N 3 1 < NDX1 

C ( N ) = (RT(N)/RGAS/(TG(N)+460)+C(N) >/2.0 

1 3 IFN (N.NDXM) 

IF (I.EO.l) J=2 
IF (I.EQ.2) J 3 1 

RHOG(N) 3 C(N)»(X(N)»WM( I ) + ( 1 . -X( N) ) »WMt J ) ) 

UG(N)=(FR 

1 (1»N)»WM<1)+FR<2'N)«WH(2))/RHOC<N)/ABEO(N)/VO!DF(N> 

33 CONTINUE 

I F ( NTENP .EQ. 0) RETURN 
C 

C TO CALCULATE SORBENT TEMPERATURES 
C 

CALL TSCRB 
D9 = 0T 

CALL TGLCOH TC# NDX1 • UC > PHOC > CPC < CX . AXC » HXC . T268 . TXi DX . 09 . 

1AVC. NOG ,0T0.TS1.TS2.TX1,TX2»TC1.TC2) 

CALL HXCORE 

CALL GAST(DX»RH0G«CPG>U6»TS» TX > N0X1 « ASG « MSG . AXG > HXG > TO , VOIOF ) 
100 F ORNAT C 8 g 1 2 . 3 ) 

DESRAT 3 FR<1.N0X1) 

I F ( NBCOUT .EQ. 3) GO TO 101 
I F ( NBCOUT .EQ. 4) GO TO 101B 
RETURN 
101 CONTINUE 

DPCO2A 3 <UESRaT-SA0C 02744. > ♦DT«RGAS« < TC02A +460 . J/VC02A/51.7 

PC02A = PC02A+DPC02 A 

RETURN 

1013 CONTINUE 

DVC02A 3 (OESRAT «SA8C02/44.0)«DT»RGAS»(TC02A+460.0)/PC02A/51.7 

VC02A 3 VC02A+QVC02A 

return 

ENO 
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cionnni 

OOOUU2 

000003 

QOOOU4 

000005 

0001-06 

0000117 

000008 

000009 


000016 

000017 

0001)18 

000019 

000020 

000021 

000022 

000023 

000024 

000025 

000026 

000027 

000028 

000029 

000030 

000031 

000032 

000033 

000034 

000035 

000036 

000037 

000Q38 

000039 

000040 

000041 

000042 

U00043 

000044 

000045 

000046 

OOOQ47 

000048 

000049 

000050 

000051 

000052 

000053 

000054 

000055 

000056 

000057 

000058 


SUBROUTINE EQPWTC 10. IDSORB.KP'W.P.W. T> 

KPW = 1 = W.T TO FIND P 

KPW = 2 = P.T TO FIND W 

pkeq=equilibrium PRESSURE IN MM HG 
unloading in lb aosor3ate per lb adsorbent 
t=temp in deg f 


DIMENSION TTAB ( 10 ( 25 ) • WT AB ( 15 . 10 . 25 ) . 
DIMENSION I DSMTXC 5*5) 


PTABI15.10.25). NT ( 25) 


OOOOlO 

C 

NT ( 1 ) 

DATA 

FOR 

C02 

, ON 

MOL SIEVE 

5a 

000011 

c 

NT ( 2 ) 

DATA 

FOR 

H20 

ON 

MOL SIEVE 

5a 

000012 

c 

NT ( 3 ) 

OATA 

FOR 

H20 

ON 

SILICA GEL 


000013 

c 

NT ( 4 ) 

DATA 

FOR 

C02 

ON 

MOL SIEVE 

13X 

000014 

c 

NT ( 5 ) 

DATA 

FOR 

H20 

ON 1 

MOL SIEVE 13X 

000015 


. Data 

- 1DSMTX/1. 

0.4,0, 

,'0.2 

1 3 1 5,f 0 # 0 * 6 r 

0.8 


0.0. 7. 0,9, 0,0. 0.0. O.O.O/ 

DATA JACK/O/ 

DATA NT/25»0 • / 

DATA NT(l)/ 6 / ' 

OaTa ( TTABC J.l ) . J*1.6 1/392. ,212. ,122. . 77. ,51. ,32,/ 

data ( WTAB< 1 . 1, 1! , 1 = 1. 15)/ .001 , . 0018. .0021, .0025, .003 . . 0037 , .004, 

1 .0045. .005, .0055, ,0063, .007. . 008 ,. 0088,. .0092/ 

DATA CPTABCI ,1,1>, 1=1,151/1. 0,1.5. 2. 0,2. 5, 3. 0,4. 0.5. 0.7. 0,8. 0.10., 
115. .20. ,30. .40. .50./ 

DATA (WTABC 1,2, 1 ) , 1=1, 15)/. 002, .0028, .004, .0047, ,0052, .006, .007, 
1-009, .01, .012* .013. -019, .025. .03, .034/ 

DATA (PTAB( I, 2.1), 1 = 1, 15 1/1. 0.1. 5. 2. 0.2. 5, 3. 0,4. 0,5. 0,7. 0.8. 0.10., 
115'. .20. .30. .40. ,5o./ 

DATA (WTAB< 1,3,1), 1=1, 1 5 ) / 0.0009.0.0018,0.0025,0.0027.0.0043, 

10. 0065. 0. 01. 0.0145. 0.0178. 0.0265. 0.0325. 0.04. 0.0485. 0-057, 0.07/ 
OATA(KTAB( I .5,1). I =1,15) /O. 002. 0.005. 0.008, 0.0122. 0.018, 0.0255. 

10.0324.0. 04.0.05.0.07.0.08.0.09.0.1.0.11.0.1177/ 

DATA! WTABC 1 , 6 . 1 ) . I = 1 , 15 ) /O . 0016 , 0 . 0035 , 0 . 0073 . 0 . 01 , 0 . 015 . 0 . 02 » 

10.0277.0. 04.0.05.0.06.0.077.0.09.0.1.0.11.0.12/ 

DATA (PTABC I ,3,1), I =1.15)/. 05. .1. .2. .3, .7,1 . . 1.9, 3, .4. .7. , 

110. . 14. 5. 20. .26. .40./ 

DATA (WTABC I .4,1 ) , I = 1 . 15 ) / . 0009 , , 0025 , .0033. . 006, .0093, ,013, 

10.0174. . 027. .0347. .041. .05. .06. .08. .0955, ,103/ 

DATA (PTABC I ,4,1 ), 1=1,15)/. 03, .06,.. 1. . 2 , .4. .7,1. ,2., 

13. ,4. ,5.6,7.7.13. ,20.. 26. 5/ 

DATA (PTABC I . 5,1 ) , I =1 , 15 >/0 . 02. 

12.17.3.9 . 5. . 7. .10. .15. .20./ 

DATA (PTABC I. 6.1), 1=1, 151/0.01. 

11. 32. 1.8. 3. . 4. 65. 6 . 6. 9. 5 . 15,/ 


.05. .1. .2. .4. .7,1, ,1.5, 

. 33. .06, .1, .2. .3, ,5. .88, 


DATA NT < 2 ) /6/ 

DATA < TTAB < j.2) .J» 1/6 1/392. ,212. , 16 7 . , 122 , , 77 . 

DATA (WTABU. 1,2), 1 =1. 15)/. 004, .007, ,01, ,012, 

1.028. . 038. .05. .071. .076, .081, .0’/ 

OATA (PTABC I ,1,2) , 1=1. 15)/. 01. .02, .05, .1, .2. .5. 1,,2. ,5., 10. ,20, , 

150. . 60. .75. .100./ 

DATA (WTABC I .2,2), 1=1. 15)/. 02, .024. .026. .030. .036, . 0 45 . . 051 , . 058 , 

1.074. . 0’l. .11, ,135. .15, .16, .175/ 

DATA CPTABCI ,2,2), 1=1. 15>/.01. .02, .03, ,05, .1, .2. ,3, 

14.0. 10., 20., 40,, 100./ 

DATA (WTABC I .3,2), 1=1. 15>/. 027, .035. .038, .045, ,057, 

1 .11. .125, .135, .145. .16, .18, .19/ 

OATA C PTABC I , 3 , 2 ) , I =1 . 1 5 ) / . 01 ... 02 , . 03 , , 05 , . 1 , . 2 . , 3 , 


,32./ 

.015. .018. ,02. ,023, 


.5, 1.0. 2.0, 
•071, .08, .092, 
.5>1,,2.,3>,4. 
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U00059 

000060 

000061 

000062 

000063 

000064 

000065 

000066 

000067 

000068 

000069 

000070 

000071 

000072 

000073 

000074 

000075 

000076 

000077 

000078 

000079 

000080 

000081 

000082 

000083 

000084 

000085 

000086 

000087 

000088 

000089 

000090 

000091 

000092 

000093 

000094 

000095 

000094 

000097 

000098 

000099 

000100 

000101 

000102 

000103 

000104 

000105 

000106 

000107 

000108 

000109 

000110 

000111 

000112 

000113 

000114 

000115 

000114 

000117 

000118 


110. .60. .120./ 

DATA <WTAB< 1.4,2) , 1*1. 13 >/. 045. .038. .065. .078. .097. .115. .125. .135. 

1 .145. . 160. .163. .175. .180. .185. . 188/ 

DATA <PTAB( 1.4,2), I*1.15>/.01. .02. .03, .05, .1. .2. ,3. .5.1. .2. ,3. ,10. 

1 .20. . 60. .120./ 

DATA <WTAB< 1.9,2), I *1.15)/. 083. .103. .115. .12. .14, .155. .159, .163, 

1.175. . 18. .181. .182. .183. .184. .185/ 

DATA (PTABt 1.5,2), 1*1. 15)/. 01. .02. .03, .04. .1. .2. ,3. .5.1. .2. ,4. ,7. , 

115. . 40. <100./ 

DATA<WTAB< I . 6 » 2 ) . J « 1 . 15 ) / . 135 . . 15 . .155, . 16. .167. ,169, .173, . 178 ,. 18 

10. . 181. .183. .184. . 185. 1 186. .187/ 

DATA <PTAB( 1 .6,2), I =1,15)/. 01. .02. . 03 , . 04 , . 07 , . 10 , . 20 . . 50 . 1 . 5 . 3 . 0 , 

17. 0. 15. 0.30. 0.70.0. 100.0/ • 

DATA NT<3)/5/ 

DATA (TTAB< J.3) . Jil.5)/l60. .100. >60. .40. ,10./ 

DATA (WTABf 1 , 1.3) , 1*1, 15 > / . 0018. .0026. .0031, .0057. .008. . 01. .03, 

1.06. . 10. .14. .20. .32. . 45. .49. .50/ 

DATA <PTABU,1,3) , 1*1, 15)/. 01. .05. .1. .4,1.0.1.95,9.42.23.6.4 4.8. 
167. 2.-101. 8, 200, ,400. ,700. .1000./ 

DATA (WTABt 1,2,3), I *1 . 15 > / . 00305 , . 005 . . 0069, .-009, . 02, . 05. .07. .11, 

1.17. . 215. .32. .42. .50. .58. .59/ 

DATA <PTAB< I, 2, 3), 1*1, 15>/. 01. .05, .10. .2, .87.3,20.5.04,9.06.15.6, 

120 . . 30. .50. . 100. .300. .700./ 

DATA <WT ABU ,3.3), 1*1, 15)/. 005. .008. .01, .02, .04, ,05, .06. .10. .19, 

1 . 27 . . 405 , . 50 . . 55 . , 60, . 64/ 

DATA (PTABt 1,3,3), I *1,15)/. 01. .03. .07, .206. .574. .79, 1.02,2.04,4.7. 

17.23. 15. . 30. .50. .100. -300./ 

DATA CWTAB< 1 ,4,3), 1*1, 15)/. 008, .0092, . 01 . . 02 . . 03 , . 05 . . 07 , , 11 , . 27 , 

1.40. . 42. .48. .57. .67. .75/ 

DATA (PTABt 1.4,3), l =1.15 >/. 01. .02, .03, ,092, .17, .36.0.58.1.08.3,45, 

16. 0. 8. 0.10. 0.20-0 1 70. 0,200.0/ 

DATA (WTAB( 1,5,3) , 1*1, 15>/. 014, .018. .022. .05, .08, .205, .28, .35. ,42. 

1.50. . 60. .70. .77. .80. .82/ 

DATA (PTABt 1,5,3), 1*1, 15)/. 01, . 02, . 03, . 10, . 20 . . 7Q. 1 . 0. 1 . 5, 2. 0 . 3 . 0 . 

15. 0. 10. 0.20. 0*40. 0.100.0/, 

DATA NT ( 4 ) /3/ 

DATA <TTAB< J.4),J«1, 3>/122.»77. ,32./ 

DATA <WTAB< 1,1,4), 1*1, i5>/. 00355. .0036, .00365. .0037. .0038. .0040. 

1.0045. . 005. .0059. .0077. . 011. . 016 . . 020. . 026 . . 037/ 

DATA (PTABt 1,1,4 ), 1=1, 15)/. 02. .03, ,04. .05. .07, ,10. ,20. .30. .50,1.0, 

12.0. 4.0.6.0.10.0.20.0/ 

DATA <WTA8< I ,2,4 ), 1=1,15)/. 0098. .01. .0105, .0115, ,0124, .0133, .0150. 

1.0165. . 018. .021. .033. .0415. .0475.. 055. .064/ 

DATA (PTABt l, 2, 4), l*i,15>/. 025. .05. 0.1, 0.2. 0.3, 0,4. 0.6, 0.8, 1.0, 1.3 

1.4.0. 7.0.10.0.15.0.25.0/ 

DATA (WTA8< 1 ,3,4) , 1*1, 15)/. 018. .0187, ,0191, .02, ,0222, -0248. .0282. 

1 .031 . . 033. .0355. .04 . . 05 . . 068 . . 078. .095/ 

DATA (PTABt l , 3, 4 ) , 1 *1 , 15 >/ . 002 , . 01 . . 02, . 04 . . 10, . 20. . 40 . . 60, . 80, 1 . , 

11.5.3.0. 6.0.10.0.20.0/ 

DATA NT ( 5 ) /6/ 

DATA (TTABt J.9), J«1.8>/400. .300. .200. .122, .77. ,35./ 

DATA (WTABt 1 1 1,5), 1*1, 15)/. 0001, .0002, .0005. .001, .002. .003, 

1.005. . 01. .016. .022. .03. .041, .05, .06, .07/ 

DATA (PTABt 1,1,5), 1*1. 15)/. 001. .002. .005. .01. .02, .05. .1, .2, .5, 

11. . 2*. 5. ,10*. 20*. 50./ 

DATA (WTABt I .2,5), 1*1. 15)/ .001, .002, .003. .004. ,009, .012, .018, 

1.025. . 038. .048. .06. .078. .09. .102 ..118/ 
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000119 

000120 

000121 

000122 

000123 

000124 

000125 

000126 

000127 

000128 

000129 

000130 

000131 

000132 

000133 

000134 

000135 

000136 

000137 

000138 

000139 

000140 

000141 

000142 

000143 

000144 

000145 

000146 

000147 

000148 

000149 

000150 

000151 

000152 

000153 

000154 

000155 

000156 

000157 

000158 

000159 

000160 

000161 

000162 

000163 

000164 

000165 

000166 

000167 

000168 

000169 

000170 

000171 

000172 

000173 

000174 

000175 

000176 

000177 

000178 


C 


Data (PTAB< 1.2,5) , I*l.l5>/-.00l. .002. .005. . 01 . .02# .03, . 1 . .2, .5. 

11. . 2. .5. .10. >20. #50./ 

DATA (WTAB< 1,3,5), I *1, 13 )/ . 007 , .01. .015. .02* .026, .036. .046, .038. 

1 .075. . 09. .104 1 .124, .14. .133. .17/ 

DATA <PTAB( 1,3,5), I »!■, 13 )/. 001,. 002,. 005,, 01#. 02#. 05,. 1. ,2. ,5. 

11. . 2. .5. .10* ,20* >50./ 

DATA (WTAB( 1,4,5) , I=1.15>/.049. .052. .054. . 059 . ,067, .083, .096, 
1-116, ,132. .132, .164, ,i8o> >196, .208, .225/ 

DATA (PTAB( 1,4,5) , !>1,13)/.Q01, .003, .005, .01. .02, .05. .09. .2, 

1.35. . 72.1.013.2.21.4.65.8.3.20./ 

DATA (WTAB< ! ,3,5) , I >1, IS)/. 068, .072. .078, .090. ,103, .124, .14, 

1.156, .165, .182, .196. ,209. .224, .24, .236/ 

DATA <PTAB< 1,5,5), I*1.13>/,001. .003, .005. .01, .02, .05, .1, .2, .3. 

1.6.1.1.2.0. 4.0.9.0*19./ 

DATA (WTAB< 1,6,5) , I >1 . 13 >/ . 108 . .112. .13, .144. .158, .172, 

1 . 186 . . 198. .213. .224. .236. .252. .268. .28. .30/ 

DATA (PTAB< 1,6,5), I *i. 13 >/.001. .002. .005, .01. .02, .04, .08, .15. .3, 

1.5. . 85.1.7.3.3.6.2.20./ 

DATA NT<6>/3/ 

DATA ( TTA8( J, 6 ) > J»l,3)/120.< 68., 32./ 

DATA(PTAB< 1 ,1,6), 1*1,15) / 13., 20. ,30, ,40. .60, ,60. .100. .125. .150. 

1.200. , 250. >330. < 450. .600., 750./ 

DATA(PTAB< I.2,d>. 1*1,13) / 15., 20. >30, ,40. ,60, ,80-. 100. .125. >150, 

1 . 200 . . 250. >330. >430. >600. , 73o«/ 

DATA(PTABU.3,6M*1»15> / 15., 20. ,30, ,40. .60. ,80. ,100. ,125. ,130. 

1.200. • 250. > 330 • ' 450. <600, < 730-/ 

DATA <WTAB< 1,1,6 j 1 1*1", IS)/. 0005, .0006, .0007, .0009, .00116, ,00137, 

1.00155. . 00178. .00203. .00250, *0031, .00435. .00565, ,0073. .0087/ 

DATA ( WTAS( ! ,2,6), I *1,15)/. 0007 , . 00078 ,. 00102 00126 ,. 00173 , 

1.00207. . 0025. .0030. . 00348 .. 0044 . .0052. . 0068 .. 0083. . 0103. . 0122/ 

DATA (WTABU. 3, 6>, 1*1.13)/ 

1- 0012- .0014. .0019, ,0023* ,0030, .0037, .00435, . 0052, . 00602, 

2.0075. . 0087. .01138. .0137. .0167, .0197/ 

DATA NT ( 7 ) /2/ 

OATA <TTAB(J.7),J«1.2)/70. , 32./ 

Data (PTABU.l, 7). 1*1, 15)/ 

110 . . 15. . 20 . .30.. 40. .53. .75.. 100 . .125. .150. .200.. 300* ,400. ,550. ,750 
2./ 

OATA (PTABU.8, 7). 1*1.15)/ 

110. . 15 . .20. .30. .40.. 53. .75. .100. .125. .150. . 200. . 300 . .400 . .550. .750 
2./ 

DATA CWTABU, 1,7), 1*1,13>/ 

1.0002. . 00025. .0003. . 00043. . 0005. .00063. . 00082. . 00105. .00125. .00146 

2. . 00186. .00264. .0034. . 0044 . .00555/ 

DATA <WTaB( 1,2,7), 1*1,13)/ 

1.0002. . 00025. .0003. .00044. .00056. .00073. . 00096. . 00122. .00148, 

2.00173. . 00226. .00337. . 00<47, , 00585, , 0074/ 

DATA NT( 8 1/3/ 

DATA(TTAB< J.B>,J*1,3)/120. .72, ,32,/ 

DATA (PTABU.l, 8). 1*1,13)/ 

110- .15, .20., 30,. 40.. 35, ,75,, 100. >125., ISO.. 200, >300. #400. .350. ,750 
2./ 

Data <ptab<i, 2» 8).j*i.l3>/ 

110. . 15. .20. .30. .40.. 35. .73. .100. .125.. 150. .200. .300.(400. ,550. >730 
2./ 

Data (ptabu. 3, i).i«i.i5>/ 

110. >15. .20,, 30 1 ,40,. 55. , 73., loo., 125,, 150. >200, ,300., 4 oo., 350., 730 
2./ 

DATA (WTABU.1,8),!*1.13)/ 
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0001.79 

1 .0001. .0002. .0003, .0004. .0005, .0006, .00075. .0008, .001. .00115. 

000180 

2.0014, .002. .00255, .0035. .0047/ 


000181 

DATA (WTaBI I .2.6), 1=1.15)/ 


1100182 

1.00035. .0004. .00045. .0005. .0006, .0009, .0012. .00155. .0018, 

.0022, 

0001 A3 

2.0028, .004, .0052. , 0066 , .0084/ 


000104 

OATA ( WTaBU .3.8 ) , 1 = 1.15)/ 


000.185 

1.00065, .0007. .Q0085. .001 * .0012. .0014, .0017, .0024, 


U 001.66 

2. 00 32,. 00 36.. 0050,. 0069,. 008 5,. 01 08,. 01 44/ . 


000187 

DATA MT<9)/3/ 


000.183 

OATA ( TTABU.9 ) , j«1,3)/i20. . 72. >32. / 


000189 

DATA (PTABCI.l. 9). 1=1,15)/ 


000.1.90 

110- > 15. .20. ,3a. .4 0, .55. , 75. . 100. * 125. .l50..200.,300..4Q0. 

. 550 • . 750 

000191 

2./ 


000192 

OATA (PTARU.2, 9), 1 = 1, 15)/ 


0 C 0 1 9 3 

110. .15. .20. .30. ,40. .55. .75. .100. . 125. .150..200..300..4QO. 

,550. .750 

000.194 

2./ 


000195 

data (PTabu. 3. 9),i = i.i5>/ 


000196 

110. .15. .20. .30, .4 0. .55. . 75. ,100. .125. ,150. .200. .300 . .400. 

.650 . > 750 

000197 

?•/ 


000198 

Data (wtab< i ,i, 9), 1=1,15)/ 


000199 

1 .0001, .00 013, .00017, ,0002. .00025. .0003, .00037. .0004 8, .00058, 

000200 

2,00067, .00087. .00122. .00163, .00221. .00291/ 


000201 

Data i wtas< I .2.9) , i=i.i5>/ 


001)202 

1 .0002. .00023. .00026. ,00036. .00045, .00058, .0007. .00085, 


000203 

2.00099. .00111. .00136. .0019. .0024, .00312. .00396/ 


000204 

DATA (WTA0I I .3,9), 1=1,15)/ 


000205 

1.00025.. 00034.. 00042.. 00055, .00067, . 00082. .001.-00122. 


000206 

2.00144, .00163, .00199, .00264, .00328. .0043. .00578/ 


000207 

C 


000208 

IF (W . LE • 0. ) W« l.E-20 


U 0 0 2 0 9 

I F ( JACK .GT. 0) GO TO 102 


000210 

DO 105 K= l , 25 


0C0211 

IF ( NT C K ) .EQ. 0) GO TO 90 


000212 

NTI=NT(K> 


000213 

00' 101 J=1.NT! 


000214 

, TTABt j.K )=1./(TTAB< J,K)+460. ) 


000215 

DO 101 1=1.15 


000216 

WTAB( I , J,K) = AL0G< WTABU . J.K) ) 


000217 

PTAB< I . J,K)=AL0G<PTA8< 1 , J.K) ) 


000218 

101 CONTINUE 


0002.19 

90 CONTINUE 


000220 

105 CONTINUE 


000221 

102 CONTINUE 


000222 

1S = IDSMTXI I0S0RB. ID) 


000223 

IF C IS. EG -0) GO TO 999 


000224 

JACK = JACK ♦ 1 


000225 

RT= 1 . /( T+460 . ) 


000226 

GO TO <201.202). KPW 


000227 

201 WL=ALOG(W) 


000228 

N = NT ( IS) 


000229 

PKEQ1=XYZMAP( 1,WTAB( 1, 1 , IS), PTABd.l. IS),15.TTAB(1, IS),N 

1 ,2,2,WL. 

000230 

. 1RT.ANS) 


000231 

P =EXP ( PKE31 ) 


000232 

IF (PKEQ .LT. 0.0) PKEQ=O.0 


000233 

RETURN 


000234 

202 Pl = ALOG(P ) 


000235 

N=NT(IS) 


000236 

W01 = XYZMAP(1, PTABll.l. 1S>.WTAB<1.1. IS) ,15,TTABd, IS),N,2. 

2.PL.RT > 

000237 

IANS) 


000238 

W = EXP( WOl ) 


000239 

RETURN 


000240 

999 WR I TE ' 6 > 998 ) 1DS0SB.J5 


000241 

998 FORMAT ( //// / ' EQUILIBRIUM DATA UNAVAILABLE FOR'/' IOSORB 

=’I4/< 

000242 

1 ID =' 14) 


000243 

call exit 


000244 

end 
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oouooi 

000002 

030003 

000004 

000005 

000006 

000007 

U00008 

000009 

000010 

oooon 

0 J 0 0 1 2 
000013 


. 1 

FUNCTION FCOAOt I0S0RB.H2O) 

C 

C 

D I MENS 1 ON H20T ( 12 ) * FC0aDT(12.5> 


Data 

H2CT / 0.00, 

.01. .02. 

.03. 

.04# 

.05, .06, 

,07. 

. G8 . 

.10. 

1 . 12 . 

Data 

. 60/ 

(FCOADT I 1 .1) , 

1=1,12)71. 

, .98, 

.88* 

.72. .575. 

.436. 

.313, 

.22 


1.155. ,086. .055. .07 

DATAIFCCADTt I .3) . 1-1, 12)/1. . .794, .63. .503, .415. .35. .298. 
1.252. .214, .148, .085. .0/ 

CALL LAC I N2 1 666 , H20T , 12 . 2 . H20 , FCOAD . FCOADT ( 1 , 1DS0RB ) > 

RETURN 

END 


« ELT FDEQID. 1.710514. 30495 . 1 


doouoi 


SUBROUTINE F OEQ 1C ( C1.C2.C3.0.VAR.NN) 

000002 


DIMENSION Cl(l).C2il).C3<l>.D<l).VAR(l),8(41),Q(41) 

000003 


DOUBLE PRECISION Cl . C2 . C3 . 0 . V AR . B. Q 

000004 


NfJl = NN-i 

000005 


B« 1 ) = C3t 1 )/C2C 1 ) 

000U06 


DO 41 J=2,NN1 

000007 

41 

8<J)=C3(J>/<C2(J)*C1(J)»B(J-1)) 

000008 


<31 1 >=D< 1 ) 702(1) 

000009 


DO 42 J=2.HN 

000010 

42 

Q(J)-<0< J)-C1< J)«Q( J-D)7(C2< J)-C1(J)*B( J-l> > 

Q00U11 


VAR(NH)*0(NN) 

000012 


DO 43 J=2.NN 

000013 


L=NN+1-U 

000014 

. 43 

VAR<L)=Q(L)-B<L)»VAR<L+1 > 

000015 


RETURN 

000016 


END 


®> ELT FDEQIM. 1.710514, 30492 , 1 


LlOOOOl 


SUBROUTINE FOEQ I M< Cl , C2 . C3 , D . VAR . NN ) 

000002 


DIMENSION C1<1),C2(1).C3<1),D!1).VaRI1),BI41),Q(41) 

000003 


NN1=NN-1 

000004 


B( 1 ) = C3 ( 1 ) 7C2 1 1 ) 

000005 


DO 41 J=2, NN1 

000006 

41 

B( J)=C3( J)7(C2< J)-Cl< J)*B( J-l) ) 

000007 


Q( 1 ) =D( 1 )/C2( 1 ) 

000008 


DO 42 J=2,NN 

000009 

42 

Q(J)=(D<J)'Cl<J)»a<J-l))7(C2(J)-CllJ)»B(J-l)> 

OQOOIO 


V AR< NN ) =Q( NN ) 

000011 


00 43 J=2 . NN 

000012 


L=NN+1-J 

000013 

43 

VAR(L)=Q{L>-a(L3**VAR(L + l> 

000014 


RETURN 

000015 


END 
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. i 


OuOOOl 
000002 
000003 
000004 
0 0 U 0 U 5 
000006 
000007 
000008 
000009 
OOUOlO 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
0QU018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
•000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 


SUBROUTINE FLAP ■ 

COMMON/AD/ TG< 20 > . PH20I .TGI .PA . PK (2.20I.PC02I . TS (20) "NEW 

l.TC (20), TX (20). TS1 ( 20 ) > TS2 (20I.TX1 ( 20 ) . TX2 (20). TCI (20). »NEV 

2TC2 (20). W ( 4 . 20 ) i PT (20>. GHR .GMW.GV1S, PN2.P02, «NEW 

3 ABED(20!iAVC(20).ASG(20>,ASX(20)iAGX(20).AXC(2n)i «NEW 

4AVX<?0),RHOG(20>.RHOS3(20).RHOS(20).RHOC(2O).RHOX(20). "NEW 

5CPG<20'.CPC(20).C o X(20).CPS(20).0X.CPL(2),DP<20>. «NEW 

6P0UT( 10 > > T I MET( 10 ) , WTACMS. WTSG . PUMP ( 10 ) . VPUMP( 10 ) , CPP ( 20 > . *NEW 

7NPSET 1 3 ) >NDR4 » NDXMAC » NBCOUT , NCX1 , NDXM > NOG . I DSORB t 20 ) . "NEW 

ft HXG( 20 ) . HXS( 20 ) . HXC( 20 ) . HSG( 20 ) . »NEW 

9SK( 20 ) .TKX( 20 > . n H t 2 0 ) >0IF( 20> ,GK(20 ) . UC ( 20 > . T268 . T0TC02 . T0TH20 . *NEW 

3 SUMPTM. AVMSL1 . AVSGL1 . HTR( 20 ) . TMAXi «NEW 

1 TOTKHH. HTR1( 20 ) . WC. TOThTC. WCC. PC02A . VC02A. SABC02 , T C02A . »NEW 

1RS1 < 20 • 9 ) . At 20 ) >F( 20 > » C( 20 ) > VS( 20 > , OV$( 20 > » DVSK 20 ) , RS< 2Q ) , »NEW 

1UG120), •PS(20)iDS<20).CS1(2Q>iCS2(20)iC1<4,20>.C2(4.20>,D1(4.20>> »MEW 

202( 20 PCI (20 ) .PC2< 20 ) . RC3< 20 ) , C1P ( 20 ) , C2P< 20 ) . C3p< 20 > .DIP (20) . »NEW 

3FR( 2.20 > . Pl( 20 ) . P2( 20 ) > P3< 20 > < WS( 20 ) . CRl < 20 , 4 ) . CR2( 20 • 4 ) . CR3 ‘NEW 

4(20.4), C3(4.20),B!4.2n).Q(4,20).CPl(20).CP2(20),X(20).VOlnF(20). «NE’W 

5 wM(2). TIME, CYCLE, DTO, DTMAX, W I , T I , PC02C . oNEW 

6V0LCAB > RC02C . "NEW 

7NC YCLT , NPR I NT . NC YCLE . NOTCON . NTEMP, NSTART , NPR , pT , QTT ( 4 ) » SABCOS »NEU 

noURLf: PRECISION C1.C2,01.D2,PC1.PC2.PC3,P1,P2,P3,C3,Q,B, »NEW 

1 CP1.CP2.X. C1P.C2P.C3P. DIP «NEW 

DIMENSION DUMMY ( 20 ) • DUMMl( 20 > . I DUMMY ( 20 ) *•-! 


NAMELIST /CHECK/ 

1 TG.PH20l.TGI. PA< PK, PC 02 I.TS.TC.TX.TS1.TS2.TX1.TX2, TC1.TC2.W.PT. 
2GMR , GMW . A3E0 , A VC . ASG , ASX . aGX , aXC . A VX , RHOG , RHOSB . RHOS . RHOC . RHOX , CP 
3G. CPC, CPX, CPS, OX, POUT, TIMET, WTACMS, WTSG, PUMP, VPUMP.NPSET.NDRA, 

4 NDXMAC . NBCOUT , NOX1 . NDXM . NOG , HxG > HXS • HXC , HSG . SK , TKX . DH. D I F , GK . UC , T2 
568, TOTC02.T0TH2O. SUMPTm. AVMSL 1. A VSGL1 , HTR , TMAX . A . F . C . VS . PVS . DVS1 
CALL FLIP! W.TG.TS.TX, TC.NDXl.NDR4, NOG. UC ) 

CALL FLCP(ABED,AVC.ASG.ASX,AGX.N0X1) 

CALL FLOP (AXC. A VX.RHOG. RHOSB. RHOC. NDX1) 

CALL FLOP ( RHOX, CPG. CPC, CPX, CPS, NDX1 > 

CALL FL0P<HXG.HXS,HXC.HsG,DH.NDX1> 

CALL FL0P( DIF.GK.PT ,X .HTR .NOX1) 

CALL FLOP (TS1. DUMMY, DUMMY, DUMMY, DUMMY, NDX1) 

CALL FLOPt TS2. TX1, TX2. TC1.TC2.NDX1 ) 

N0X2=NDX1+1 

CALL FLOP (SK. TKX, DUMMY, DUMMY. DUMMY. NDX2) 

00 61 K=1.2 
UO 62 N=l. NDX1 
DUMMu N ) =FR( K . N ) 

62 DUMMY(N)=PK(K.N) 

DO 61 N=1.NDX1 

I =NDX1+1*N 
FR(K, 1 ) =DUMM1 < N ) 

61 PK ( K , I )=DUMMY(N> 

DO 63 N=1.NDX1 

63 J DUMMY ( N ) 3 IDSORbt N > 

DO 64 N=1.N0X1 
I=NDX1+1-N 

64 I DSORB ( I ) 3 I DUMMY ( N ) 

RETURN 

END 
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* ELT FLIP.l. 710514 • 3»498 


NASA CR-I 12098 


UC-OUOl 


SUBROi IT 1 NE FL I P( W , TG , TS . T X . TC , NX , NR . NOG . UC > 

000002 

C 

THIS SUBROUTINE INVERTS BED LOADINGS AND TEMPERATURES 

000003 


DIMENSION V< 4,20>,TG<20!.TS<20>.TX(20>.TC(20).UC(20) 

000004 


DIMENSION TW< 4 . 20 ) . TTG < 20 > . TTS < 20 ) . TTX ( 20 > . TTC t 20 ) , TUG ( 20 > 

000005 


DO 5 1 =1 .NX " 

000006 


CO' 6 J = 1 ,NR 

000007 

6 

TWf J, I ' =W< J, I ) 

000008 


TTC( I ) =TC( I ) 

000009 


TTG< I > = TG( I ) 

OOOOlO 


TTStn-TS(I) 

OCOCll 


TTX ( I ) = T X ( I ) 

000012 

5 

TUC( IJ=UC( I> 

000013 


DO 10 N=1.NX 

000014 


I =NX + i-N 

000015 


DO 15 J=1 , NR 

000016 

15 

W(J. I )=TW< J.N) 

000017 


TG(I)=TTG(N> 

000018 


TS< I >=TTS(N> 

000019 


TX< 1 ) = TTX(N> 

000020 


TC C I ) = TTC< N> 

000021 

10 

UC< I )= -TUC(N) 

000022 


N0G = NX + 1-.N0G 

000023 


RETURN 

000024 


END 


» ELT FLOP, 1 # 710514 . 38499 , 1 


OOOCOl 


SUBROUTINE FLOP < A , B , C , D . E , NX > 

000002 


DIMENSION A<41).B(41)iC(41).D(41).E(41> 

000003 


DIMENSION AA(20>.BB<20).CC(20>.DD(20>.EEC20> 

000004 


UO 10 1=1. NX 

000005 


AA( I > = A( I ) 

000006 


BBCI>=BU> 

000007 


CC < 1 ) -c < I ) ' 

000008 


DD(I)=D<I) 

000009 

10 

EE(I)=EU> 

OCOOlO 


DO 20 N= 1 . NX 

000011 


I=NX+1*N 

000012 


A ( I ) = A A t N ) 

000013 


B C I 

000014 


C( I ) — C C ( N ) 

000015 


D(D=DD(N) 

000016 

20 

E(I)=EE(N) 

000017 


RETURN 

000018 


END 


» ELT GAST, 1,710514. 38500 , 1 


000001 

000002 

000003 

000004 

000005 

000006 

000007 

000008 

000009 

000010 

000011 

000012 

000013 

000014 

000015 

000016 

000017 

000018 

000019 

000020 

000021 

000022 

000023 

000024 


SUBROUTINE GAST ( OX , RHOG > CPG > U . TS , TX , NDX1 • ASG . HSG . AXG . HXG » TG . VOI DF 

D 

DIMENSION RH0G(1>,CPG(1).U(1>.TS(1>.TX(1).TG<1>.ASG<1>.HSG<1>.HXG( 
11).V0IDF<1),AXGH) 

Wsl.o 

N2 = NDX1-1 
TG ( 1 ) =TS< 1 ) 

DO 10 N = 1, N2 

F - 0.5»<VOIDF<N>+ VOI DF< N+l > > 

AS1=ASG<N+1> 

HS1 =HSG (N+l ) 

AX1=AXG<N+1 ) 

HX1=HXG<N+1 > 

CP1=CPG(N> 

RO = 0.5»<RHQG<N)+RH0G<N+1>> 

Ul= 0 . 5» ( U<N>+U(N+1>) 

TS1=TS( N+l ) 

TX1 =TX( N+l ) 

Cm./IFoRO+CPl + Ul ) 

D=C1*( AS1»HS1»TS1*AX1«HX1»TX1 ) 

A=(AS1»HS1+AX1*HX1>»C1 

10 TG(N+1) = ( C1./0X-A»<1,-W) >*TG(N)+0)/(1./OX*A«W> 

RETURN 

END 
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0 tUT r,ASTA.1.71;'bl4, 383(11 


NASA CR-I 12098 


noconi 
000002 
000003 
000004 
OOIUH'5 
OOOOC.6 
000007 
OOOOOfl 
0000119 
000010 
oonou 
OOU012 
000013 
000014 
000015 
000016 
00001 7 
000018 


< 1 

SUBROUTINE GASTA<GMR,CPG< ABED. NDX1. TGI .ASG.HSG.AXG.HXG.DX.TG.TS.TX 
1) ' 
c 

C GAS TEMPERATURE calculations for adsorption 
c 

DIMENSION CPG< 1 ) . ASG< 1 > ,HSG( 1 ) . HXG( 1 > . TGU > . TS( 1 ) ,.TX< 1 ) , ABED ( 1 > . 
1AXG< 1 ) 

c 

T G < NDX 1 + 1 ) = TGI 
DO 10 N = 1 * N0X1 
C = G(TR-‘CPGtN)/«8E0(N) 

N1 = ND'X1 + 1-N 

Cl = ASG<Nl)»HSG<Nl) + AXG(Nl >®HXG(N1> 

10 TG<N1) = (TG(IU + 1)/0X + USG(N1)*HSG(N1)»TS(N1) + AXG<N1) 

1 »HXG< N1 > « TX t N1 ) )/ 

10 /( 1 . /Ex + Cl/C) 

RETURN 

END 


P ELT HXCORE. 1.710719, 62343 , 1 


000001 

000002 

000003 

000004 

000005 

000006 

000007 

000008 

000009 

000010 

000011 

0C0012 

000013 

000014 

000015 

000016 

000017 

000018 

000019 

000020 

000021 

000022 

000023 

000024 

000025 

000026 

000027 

000028 

000029 

000030 

000031 

000032 

000033 

000034 

000035 

000036 

000037 

000038 

000039 

000040 

0Q0Q41 

000042 


SUBROUTINE HXCORE 

COMMON/AD/ TG<20)|PH20I >TGI ,PA , PK C2,20),PCQ2! ,TS (20) "NEW 

l.TC (20'. TX (20). TS1 <20>,TS2 (20>,TX1 (20I.TX2 <20>.TC1 (20). "NEW 

2TC2 (20). W ( 4 . 20 ) i PT (20), GMR .GMW.GV1S. PN2.P02. »NEW 

3 ABED( 20) . AVC< 20 ) , 4SG120) . A3X< 20) . AGXC20 ) . AXC(20) . *NEW 

4 A VX < 20 ) . RHOG ( 20 ) . RHOSR( 20 ) , RHOS ( 20 > . RNOC ( 20 ) . RHOX( 20 ) . »NE V 

5CPG( 2J ) >CPC<20) ,CPX( 20) ,CPS(20) . DX . CPL ( 2 ) . DP( 20 ) , »NEW 

6P0UT< 10 ) ,TIM£T< 10) .WTACMS. WTSG , PUMP ( 10) . VPUMP( 10 > ,CPP(20> , »NEW 

7NPSET ( 3 ) .NDR4.N0XMAC.NBC0UT.NOXl.NDXM. NOG. IDSORB( 20) . »NEW 

a RXG( 20 ) , HXS( 2C ) , HXCt 20 ) , HSG( 20 ) . »N£W 

9SK(20).TKX(2Q),DH(20).DIF(20) ,GK(20) , DC ( 20 ) • T26B . TOTCO? . T0TH20. "NEW 

1SUMPTM.4VMSL1,AVSGL1.HTR(20).TMAX. «NEW 

1 T0TKWH.hTR1(20).WC,TOTHTC.WCC.PCO2A.VC02A.SABCO2. TC02A . «NEW 

1 RSI (20.9), A ( 20 > > F ( 20 > » C( 20 > » VS( 20 > - DVS< 20 ) 1 0VS1 ( 20 ) » RS l 20 > • *NEw 

1UG(20),PS<20).DR(20).CS1(20),CS2(20).C1(4.?0).C2(4.20).D1(4.20>, »NEW 

2D2(20).PCl(20),PC2(20),PC3(20),ClP(20),C2P(20),C3P(20),niP(2D), »N£W 

3FR( 2 , 2D ) , Pl(20).P2(20).P3(20).WS(20).CRl(20.4).CR2(20.4),CR3 ®NEW 

4(20.4), C3( 4 > 20 > ( 4 . 20 ) > Q( 4 , 20 > > CPI ( 20 ) > CP2 ( 20 ) > X ( 20 ) • VOI OF ( 20 ) , «NEW 

5 WM(2>. TIME. CYCLE. DTO. DTMAX , WI , T I , PC02C . <*NEW 

6V0LCA8 , RC02C > »NEW 

7NCYCLT .NPRJNT .NCYCLE i NDTCON » NTEMP, NST aRT .NPR.OT .DTTC4) .S4BC0S "NEW 

DOUBLE PRECISION Cl . C2, 01 . D2, PCI . PC2, PC3 , PI , P2, P3, C3 , Q , B . *NEW 

1 CP1.CP2.X. C1P.C2P.C3P, DIP »NEW 

equivalence (nox.noxd »»-i 


D I MENS I CN SI ( 20 > > S2 ( 20 > , S3( 20 ) , DD( 20 ) 

C 

ON=DT*DTO 
DO 10 Nn.NDX 

Tl= AVX(N)«<HXC(N)+HXS(N)+HXG(N))»0.5 

S1(N)=-TKX(N)/OX/OX 

S3(N)= ~TKX<N*1 )/OX/QX 

S2<N)= RHOX<N)«CPX(N)/DN -Sl<N> - S3 ( N 7 ♦ T1 
10 DD<N) = RH0X(N)»CPX(N)/0N»TX2(N> + A VX l N ) • ( HXC ( N ) 

1« TCI ( N ) * HXS(N)»TS1(N)+HXG(N)»TG(N) ) - Tl* TX2( N ) +HTR( N ) /( A8E0 ( N > * 
2ASX(N)/AVX(N)»DX) 

S2( 1 ) =S2( l )+Sl ( l ) 
sid)=o. 

S 2 ( NDX ) «S2 < NDX ) *53 < NQX ! 

S3(NDX ) =0 . 0 

CALL FDEQIIM(S1.S2|S3,00.TX,NDX! 

return 

END 


» ELT IFN, 1.710514, 38502 , 1 


000001 

000002 

000003 

000004 

000005 

000006 C 


FUNCTION IFN(N.NDXM) 
!FN=1 

I F t N . GT . NDXM ) I FN = 2 
RETURN 

END 
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<• ELT LAGJN2, 1.7J0514, 33503 . 1 


U000U1 
000002 
0 0 U 0 U 3 
000004 
000005 
000006 
000007 
000008 
000009 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
000024 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 


SUBROUTINE |_AGIN2< ID.X.NP.ND.XO.YO.Y) 
C REVISED FOR. FORTRAN IV 8-8-65 S. WONG 

0 I MENS I CN X(2), Y<2> 

C 

IL0=1 

IF(XO-X(1>)10.16.4 
4 1F<X0-X(NP>)19, 13,7 
7 I L0=NP-1 
10 IHI = Il.O+l 
GO TO '46 
13 ILQ=NP 
16 VO=Y< I LC ) 

. RETURN 

19 DO 22 I L0 = 2 > NP 

IF(XO-XCILO) >25.16.22 
22 CONTINUE 
25 : HI = I i_0 
! L0= 1 HI -1 
IF(N0-2>46.46i28 
28 DO 43 I -3 , NO 

1 Ft ILO-D40.40.31 
31 IF( 1 H I -NP >34.37.37 

34 IF (2.oX0-X( IL0-1>-X( IHI+1 > > 37,37,40 
37 . I L0= I LO-1 
GO TO 43 
40 IHI=IHI*i 
.4 3 CONTINUE 
46 Y0=0.0 
PN= 1 , 0 

DO 49 I = I LO • I H I 
49 PN = PN»<XO-X( I > > 

DO 58 1 = I LO, I H I 
P = PN/(XO-X( I )> 

DO 55 J=IL0, INI 
IF< J-I 152,55,52 
52 P = P/< X< I )-X! J> > 

55 CONTINUE 

Y0-Y0 + P°Y < I > 

58 CONTINUE 
RETURN 

1 FORMAT (97X.7HLAGIN2 .I4.E12.5) 

END 
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NASA CR-I I 2098 


* EIT MAIN4B. 1. 710719, 62345 , 1 


r 


ooanoi 

000002 

000003 

000004 

000005 

000006 

000007 

000008 

000009 

000010 

000011 

000012 

000013 

000014 

000015 


C MAIN PROGRAM FOR ANALYZING 4-0ED SYSTEM FOR C02 RECOVERY 
C 

COMMON/AD/ TG< 20 ) *PH20I »TGI .PA . PK (2.20).PC02I ,TS (20) 

l.TC (20), TX (20). TS1 (201.TS2 ( 20 ) , TX1 <20>,TX2 (20), TCI (20). 
2TC2 (20). W ( 4 . 20 ) i PT ( 20 > . GMR .GMW.GVIS. PN2.PQ2. 

3 ABED<20>, AVC(20).ASG(20).ASX(20).AGX(20).AXC(20). 

4AVX(20).RHOG(20),RHOS9(20).RHOS(20).RKOC(20).RHOX(20). 
5CPG(20).CPC(20).CPX(20) . CPS( 20 > >DX . CPL< 2 ) . DPt 20 > . 
6POUT(10).TIMET(10).WTACMS,WTSG .PUMP(10).VPUMP(10).CPP(20), 

7NPSET ( 3 ) . NQR4 » NDXMAC , NBC OUT , NDX1 . NOXM. NOG . tDSORB(20) . 

8 RXG ! 20 > . HXS ( 20 ) > HXC< 20 ) . HSG( 20 ) . 

9SK<20) .TKX(20).OH(20).DIP(20) ,GK(20) . UC ( 20 > . T268 , TOTC02 . T0TH20. 
1SUMPTM . AVMSL1 * AVSGL1 # HTR( 20 ) . TMAX, 

1 TOTKWH.HTR1(20).WC.TOTWTC.WCC.PCO2A.VCO2a.SABCO2, TC02A. 

lRSl < 20.9). A < 20 ) . F t 20 ) . C ( 20 > . VS( 20 ) . DVS< 20 > t DVS1 ( 20 ) . RS( 20 > . 


000016 

000017 

000018 

000019 

000020 

000021 

000022 

000023 

000024 

000025 

000026 

000027 

000028 

000029 

000030 

000031 

000032 

000033 

000034 

000035 

000036 

000037 

000038 

000039 

000040 

000041 

000042 

000043 

000044 

000045 

000046 

000047 

000048 

000049 


1UG(20).PS(20).DS(20),CS1(20).CS2(20).C1(4.20).C214,20).D1(4,20). 
202(20) .PC1(2Q),PC2(20).PC3(2Q).C1P<20) . C2P< 20 > . C3P< 20 > .DIP ( 20 > . 

3FR (2,20). P1(20).P2(20).P3<20>.WS(20).CR1(20.4>,CR2(20.4),CR3 

4(20.4). C3(4.20>iB(4.20>»Q<4,20),CP1(20>,CP2(20),X(20),VOIDF(20), 

5 WM<2>. THE. CYCLE, OTO. DTMAX » W l » T 1 1 PC02C. 

6 VOLCAB . RC02C , 

7NCYCLT,NPRINT,NCYCLE,N0TC0N,NTEMP,NSTaRT.NPR,DT.DTT(4),SABC0S 
Double PRECISION C1.C2.01.D2,PC1.PC2.PC3.P1,P2,P3.C3.0,B. 

1 CP1.CP2.X. C1P.C2P.C3P, DIP 

COMMON TGI ( 20 > »PH201 1 . TGI1 . PA1, PK1 (2,20). PC02 1 1 ,TS01(20> 

1 . TC01 ( 20 ) . TX01<20 ) » TS11 ( 20 ) , TS2l( 20 > , TX11( 20 ),TX21<20)»TC11(20>. 
2TC21(20).W1(4,20) ,PT1< 20 >. GMR1 , GMW1 . GVI S1.PN21.P021 

COMMON TG2<20),PH20I2.TGI2,PA2, PK2 (2, 20), PC 02 12 ,TS02(20) 

l.TC02(20).TX02(20). TS12< 20 ) . TS22( 20 ) . TX12( 20 ) , TX22< 20 ) . TC12( 20 ) . 
2TC22 <20),W2(4,20)|PT2(20>. GMR2.GMW2.GVIS2.PN22.P022 

COMMON TG3(20),PH20I3.TGI3,PA3, PK3( 2,20). PC02I 3 ,TS03(20) 

1,TC03(20).TX03(20). TS13 ( 20 ) . TS23( 20 ) . TX13( 20 ) , TX23( 20 ) . TC13( 20 ) . 
2TC23(20),W3(4,20),PT3(20) . GMR3, GMW3. GVI S3, PN23.P023 

COMMON TG4 ( 20 ) i PH20 I4.TGI4.PA4, PK4 ( 2 , 20 ) , PC02 l 4 ,TS04(20) 

1. TC04(20).TX04(20). TS1 4 ( 20 ) . TS2< ( 20 ) . TX14 ( 20 ) . TX24 ( 20 ) , TC14 ( 20 > . 

2TC24(20).W4(4.20)|PT4(20>. GMR4 , GMW4 , GVI S4 , PN24 , P024 

COMMON/BI/ ROB(405), J5B<29) 

COMMON/B27RMB(«05). IMB( 2?) 

COMMON/BIA/RQBA ( 260 ) 

COMMON/B1D/RDBO( 260) 

C0MM0N/B2A/ RMBA ( 260 ) 

COMMON/B2D/ RMBD<260> 

DIMENSION RB1M(349) , RB2M ( 349 ) , RB3M( 349 > , RB4M( 349 > . RMA I N( 11 ) , 
1IMAIN(06),KBEO(4) 

EQUIVALENCE (RB1M(1),TG1(1)).(RB2M(1),TG2(1)).(RB3M(1),TG3(1)), 
1(RB4M(1).TG4(1)).(RmAIN(1).WM(1)).( IMA I N( 1 > .NCYCLT ) 

NAMELIST/MAIN/ WM, CYCLE. DTMAX.WI.TI.PC02C. VOLCAB, RC02C. 

1NPR I NT . N'DTCON . NTEMP . TGC . P AC . PH20C , TGHX 

2. PC02A -VC02A.SABC02.TC02A.XBED.TIMEDS. NCT1, NST1, NCT2, NST2 

TS01.TC01.TX01.W1. 

TS02.TC02.TX02.W2. 

TS03.TC03.TX03.W3. 

TS04.TC04.TX04.W4, 


000050 

NAMELIST/B1M/ 


PA1. 

000051 

1GMR1.GMW1. 

PN21 . °021 


000052 

NAMEL I ST /S2M/ 


PA2. 

000053 

1GMR2.GMW2, 

PN22.P022 


000054 

NAMEL I ST /B3M7 


PA3, 

000053 

1GMR3.GMW3. 

PN23.P023 


000056 

NAMEL I ST/B4M/ 


PA4, 

000057 

1GMR4.GMW4. 

PN24.P024 


000058 

DATA PT2.PT4/ 

40»3.0/.X/20*1 

./,C/20»0 


• NEW 

• NEW 

• NEW 

• NEW 

• NEW 

• NEW 

• NEW 

• NEW 
•NEW 

• NEW 

• NEW 

• NEW 

• NEW 

• NEW 
•NEW 
•NEW 

• NEW 

• NEW 
•NEW 

• NEW 

• NEW 
•NEW 
.*-1 



AIRESEARCH MANUFACTURING COMPANY 
Los Angeles, California 


72-8786 
Page 214 




NASA CR-I I 2098 


POOC59 

000060 

000061 

000062 

00nn„3 

000064 

000065 

000066 

000067 

000068 

0000»9 

000070 

000071 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 
000080 
000061 
000082 
OOOC63 
000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
030096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
0001 08 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 


DATA 0ir/4«l./ 

1 CONTINUE 6 TO READ IN DATA FOR A NEW PROBLEM 

10H FORMAT ( 13A6 ■ A2 ) 

109 F0RMATI20X.13A6.A2) 

RE AD( 5 .MAIN) 

WRITE! 6. MAIN) 

READIS.BIM) 

WR I TE( 6 > BlM > 

READ ( 5 . B2M ) 

WR 1 TE( 6 > 82M ) 

READ! 5.B3M) 

WRITER. B3M> 

READ! 5 » 04M ) 

WR I TE ( 6 . B4M ) 

call keadi 

CALL READ2 
CALL REA03 
CALL READ4 
SA8C0S'SASC02 
nhalf=i 

DO 102 N= 1. 20 
TC11<N)=TC01(N) 

TC21<N>=TC01<N) 

TX11 ( N ) = TX01 ( I ) 

TX21 ( U ) =TX01 ( N ) 

TS11(N)=TS01(N) 

TS21< N ) *TS01 ( N ) 

TC12(N)=TC02(N) 

TC22(N)=TC02(N) 

TX12(,N> = TX02(M) 

TX22(N)=TX02(N) 

TS12 C N ) =TS02 ( N ) 

TS22(N)=TS02(N) 

TC13(N)=TC03(N) 

TC23C N ) =TCQ3( N ) 

TX13( N ) =TX03( N ) 

TX23<N)=TX03(N) 

TS13( N ) =TSQ3< N ) 

TS23(N)=TS03(N) 

TC14(N)=TC04(N) 

TC24(N)=TC04(N) 

TX14(N)=TX04(N) 

TX24(N)=TX04(N) 

TS14(N)=TS0A(N) 

TS24(N)=TS04(M) 

102 CONTINUE 
NCYCLT=NCT1 
NST ART =NST1 

ASSIGN 103 TO NSUS48 
GO TO 104 

103 CONTINUE 

CALL BE04(1.0.3.RB1M,RDR. IDB.RDBA. I STOPC . KBED ) 

CALL BED4(2,0.3.RB2M,RMB. IMB.RMBA. ISTOPC.KBED) 

DO 201 K=l,60 
N=K + 120 

RMBD! N ) =RMBA ( N ) 

RDBD(N>=RDBA(N) 

201 CONTINUE 

NCYCLT=NCT2 

NSTART=NST2 
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000119 
0001.20 
000121 
000122 
000123 
U 00 124 
000125 
000126 
000127 
000128 
0C0129 
R ■" 0130 
000131 
000132 
000133 
000134 
000135 
000136 
000137 
000138 
000139 
000140 
000141 
000142 

. 000143 

l 000144 

000145 
000146 
000147 
000148 
000149 
000150 
000151 
000152 
0C0153 
000154 
000155 
000156 
000157 
000150 
000159 
000160 
000161 
000162 
000163 
000164 
000165 
000166 
000167 
000168 
000169 
000170 
000171 
000172 
000173 
000174 
000175 
000176 
000177 
000178 


ASSIGN 105 TO NSU84S 
GO TO 104 

105 continue 

CALL EXIT 

c 

c 

104 continue 
C START SUB4B 
NCYCLE = 1 
101 CONTINUE 

I F ( NCYCLE -GT. NCYCLT ) GO TO NSUB4B 
TIME = 0.0 . 

DTO =0.0 
D T = 1 . E - 5 
NPR = 1 
GO TO 3 

4 CONTINUE 

GO TO ' 3 > 42 ) i NDTCON 
42 DT=DTMAX/10.0 

IFITIMF. .LT. l.E-4) 0T=OTMAX/100Q . 0 
1 F < T I ME .GT. 0.06) OT*0TMAX 
GO TO 5 
3 CONTINUE 

DT=AMlNl<DTT<l).DTT(2>ilTTC3>.DTT(4>> 

IFCTIME .LT. 8.E-5) DT*l.E-5 

5 I F < ( T I ME+OT ) .GT. CYCLE) OT = CYCLE-TIME 
T I ME=T 1 ME+DT 

GO TO! 20 . 21 ) . NHALF 

c »<•»*•• »»part to be changer for different hook-up of system »•••«•••».* 

C FIRST HALF CYCLE 
20 CONTINUE 

PC02 1 1 =PC02C 
PH20 1 1 = PH20C 
TGil=TGC 
ISTOPC=0 

CALL BED4 ( 1 . 0 » 1> R81M, RD9 • IDB • ROB A > I STOPC > KUEO ) 

PC02 I 2=PK (1,1) 

PH20I2=PK (2,1) 

TG I 2 = TG (1) 

1F(TC1(1) -GT. TGHX) TGI2=TGHX 
RMBA(201)=TCOK10) 

35 CALL 8E0 4 ( 2 < 0 > 1 > R32M . RMB » I MB . RMB A > I STOPC * KBED ) 

DPC02C = UT»(RC02C-GMRo(PC02C-PK2( 1,1) )»44./ ( PA»GMW ) )»554.»530.X 

1(44. *V0LCA8 ) 

I F < < KBED (l).EQ.O)|ANO.<KBED(2).EG.0))DRCO2C = O. 

PC02C=PC02C+OPC02C 
PC02 I 3=PK (1,1) 

PH20I3 = 0. 00000 
TG I 3 = TG (1) 

IF( T IME . GT. TIMEDS ) IST0PC»1 

CALL BED4(3,1, l.RB3M,R0P> I DB t RDBD> I STOPC . KBED > 

RMBD(201)=TC03(10> 

call beD4(4,o.2,rb4m,rmb, IMB.RMBD, l STOPC. KBED) 

C TO BE CHANGED UP TO HERE *•»*••**••*••*••• 

NPR = NPR+1 
DTO=DT 

1 F ( T I ME .GE. CYCLE) NM*lF = 2 
I F ( T l ME .GE. CYCLE) GO TO 101 
GO TO 4 

C ..PART TO BE CHANGED FOR DIFFERENT HOOK-UP OF SYSTEM •>>•«•«••<» 
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000179 

ocui«n 

ooohu 

000.182 

nooinj 

000184 

0001 fl 5 

000166 

000187 

000168 

00018 ? 

0001?0 

000191 

000192 

000193 

000194 

000195 

000196 

000197 

000198 

000199 

000200 

000201 

000202 

000203 

000204 

000205 

000206 

000207 

000208 

000209 

000210 


C SECOND HALF cycle 
21 CONTINUE 
IST0PC. = 0 
PC02I3-PC02C 

PH20 1 3 = PH20C • • 

TGI3=TGC ' • 

CALL ELD4<3.0«1,R93M.,R08« lOB.RDRA. ISTOPC.KBED) 

PC02 1 4 =PK (1,1) 

PH20 1 4 =PK (2,1) 

TGI4=TG (1) 

! F ( TG3 1 1 ) .GT. TGHX ) TG I 4=TGHX 
RMBA(201)=TCQ3(l.n) 

36 Call BED4<4.Q.1.RB4M,RMB. IMB.RMBa. ISTOPC.KBED) 

0PCO2C=Dr«(RCO2C-GMR«(PC02C-PK4( 1, 1) )«44./ (PA»GMW) )*554 .*530 . / 
1144.0VOLCAB) 

I F ( ( KBEOt 3 ) . £0 . 0 ) , AND • ( KBED( 4 ) . E9. 0 ) )DPC02C=0 . 

PC02C=PC02C+OPC02C 
PC02 1 1 = PK (1,1) 

PH20 11=0.0000 
T G 1 1 = T G (1) 

IF(TIME.GT.TIMEDS) ISTQPC=1 

CALL BED4 ( 1 , Ii 1 , RB1H, ROB* IDB.RDBD, ISTOPC.KBED) 

RHBD( 201 ) S TC01 < 10 > 

CALL 3ED4 <2,0, 2. RB2M.RM3. 1MB. RMBD, ISTOPC.KBED) 

C TO BE CHANGED UP TO HF.RF. *****e*****oo»*ft#*«#****a 

NPR = NPR+1 
DTO=DT 

IFITIME .GE. CYCLE) NHALF=1 

IF( TIME .GE. CYCLE ) NCYCLE-NCYCLE+1 

IFITIME. GE. CYCLE) GO TO 101 

GO TO 4 

END 
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P ELT NEWT02. 1.710609, 32711 , 1 


000001 



SUBROUTINE NgtfT02<Nl»MG0»X. Y.XO. YO.XMIN.XHAX.ER) 

000002 

C 


SET Nl=l IN MAIN PROGRAM BEFORE CALL NEWTON. THE ROUTINE 

000003 

C 


FINOS X FOR Y=Q GIVES NG0=1 IF RECALCULATIONS REQUIRED* 

000004 

c 


GIVES NGQ = 2 IF CONVERGENCE REACHED. 

000005 



N1*N1-1 

000006 



I F ( ABS(Y)-ER) 8.8,5 

000007 


5 

IFtNl >7*6*7 

000008 


6 

YO- Y 

000009 



XO = X 

000010 



X=XO+(XMAX-XMIN>«0.01 

oouon 



IF(X-XMAX>21<21*1« 

000012 


14 

X=XO-(XMAX-XMIN>»0.01 

000013 



GO TO 21 

000014 


7 

SLOPE=(Y-YO>/<X-XO) 

000015 



YO = Y 

000016 



XO-X 

000017 



X=X-Y/SLOPE 

000018 



IF(N1»8)20. 20*21 

000019 


20 

X-0 . 5“ ( X+XO 1 

000020 



I F ( Nl+20 >22*22*21 

000021 


22 

WRITE (6,23) 

000022 



WRITE (6,30) X,Y.X0,Y0,ER 

000023 


23 

FORMAT (32H0EXCEE0 20 ITERATIONS IN NEWTON //> 

000024 



Nl-0 

000025 



ER=5 . »ER 

000026 


21 

CONTINUE 

000027 



IF(X-XMIN>11.*11*12 

000028 


U 

X*XM!M 

000029 



I F ( X-XO >9,8*9 

000030 


12 

IF(X-XMAX>9*13,13 

000031 


13 

X=XMAX 

000032 



IF(X-X0>9,8.9 

000033 


9 

NGO= 1 

000034 



RETURN 

000035 


8 

NG0 = 2 

000036 



Nl*l 

000037 



return 

000038 


30 

F ORMAT ( 14H X . Y , XO i YO . ER= 5G14.4! 

000039 



END 
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(JQ(K)OI 

0301102 
ncnon3 
oonou4 
000005 
000006 
03UU07 
000008 
U 0 0 0 0 9 
000010 
oooou 
000012 
oooou 

000014 

000015 

000016 

000017 

000018 

000019 

000020 

000021 

000022 

000023 

000024 

000025 

000026 

000027 

000028 

000029 

000030 

000031 

000032 

000033 

000034 

000035 

000036 

000037 

000038 

000039 

000040 

000041 

000042 

000043 

000044 

000045 

000046 

000047 

000048 

000049 

000050 

000051 

000052 

000053 

000054 

000055 

000056 

000057 

000058 


SUBROUTINE PRADSBC IBEO) ' 

c 

COMMON/ AD/ Tot 20 ) ) PH20 1 .TGI .PA , PK (2,20).PC02I ,TS ( 20 ) *NEW 

1 . TC (20). TX (20). TS1 <201. TS2 (203.TX1 (201.TX2 <20>.TC1 (20). *NEW 

2TC2 (20), W ( 4 . 20 ) , PT (2CI>. GMR .GMW.GVIS, PN2.P02, ' »NEW 

3 a6£0(20).AVC(20).4SG(20).ASX(20).AGX(20>.AxC(20). *NEv 

4AVX(2Ui.RH0G(20).RHOSB(20).RHOS(20).RN0C(20).RHOX<20), *NEW 

5 CPG ( 20 i . CPC( 20 1 ,CPX( 20 ) , CPS (20 > . DX . CPL ( 2 > . DP ( 20 > , *NEv 

6P0UT(10 ), TIMET (10). WTACMS.WTSG . PUMP ( 10 ) . VPUMP ( 10 > • CPP ( 20 ) , •NEW 

7NPSET ( 3 ) . NDR4 . NDXMAC . NBCOUT, NDX1 . NDXM. NOG . 1DS0RB( 20 > . «NEV 

8 HXG( 20 ) . HXS( 20 ) , HXC( 20 ) » HSG ( 20 ) . ■ •NEW 

9SK(20).TKX(20).DH(20).OIF(20>.GK(20) . uC( 20 > . T268 . T0TCO2 . T0TH20 . «NEw 

1SUMPTM . A VMSL1 . AVSGL1 > MTR(20)»TMAX. «NEW 

1 TOTKWH. HTR1 ( 20 ) . WC . TOThTC. WCC . PC02A . VC02A . SA0C02 . TC02A. «NEW 

1RSK20.9). A ( 20 ) . F ( 20 ) . C ( 20 ) , VS ( 20 ) . DVS ( 20) iDVSl ( 20 > . RS ( 20 ) . «NEw 

1UG ( 20 ) .PS (20) >DS( 20 ) .CS) <20> .CS2(20 ) . Cl ( 4 . 20 ) * C2< 4 , 20 > . 01 ( 4 , 20 ) , »NEw 

2D2(20).PC1(20).PC2(20).PC3(20).C1P(20),C2P(20),C3P(20),D1P(20). »NEW 

3FR < 2 . 20 ) • PK20) .P?(20) >P3( 20) .WS120) .CRK20.4) .CR2(20.4) .CR3 . «NEw 

4(20.4 ) . C3< 4.2(11 ,B( 4.20 ) .Q( 4 .2U ) . CPI ( 20 > . CP2 ( 20 ) . X ( 20 ) . VOI OF < 20 ) . *NF.w 

5 WM(23 .TIME, CYCLE. OTO. DTMAX . WI , T I , PC02C . »NEW 

6V0LCA6.RC02C, «NEW 

7NCYCLT .NPRINT. NCYCLE » NQTCON. NTEMP . NST ART . tJPR.OT > DTT( 4 > .SABCOS <*NEW 

DOUBLE PRECISION C1.C2.D1.D2.PC1,PC2,Pc3,P1,P2.P3,C3,0,B, »NEW 

1 CP1.CP2.X, X1P.C2P.C3P.01P *NEw 

C ••-! 


DIMENSION AVL0(41) 

EGUI V ALENCE( VOX . N0X1 ) 

AVMSLD=0.0 ■ 

A VSGLD=0 . 0 
A VRC02-0 . 0 ■ 

AVRH20=0.0 

AVPH20 = SUMPTM/TIME 

AVH20P = GMR»AVPH20«18,/(p.A»GMW) 

TIMEM=60.»TIME 

WRITE(6,499)IBED 

WR I TE ( 6 > 100 ) NCYCLE. TIME . T IMEM » OT 
WRITE <6,1011 

WRITE! 6, 102 ) ( N»PK( 1 *N) » PK(2«N) > 

1 • TG<N),TS(N),TC(N).TX(N>.N=1.N0X> 

WRITE(6,103)PK(1.NDX1+1 ) . PK( 2 , NDX1+1 ) .TG(NDX1+1 ) 

103 FORMAT' • INLET’ Flo . 4.F12. 4.F19 . 4 > 

WRITE (6,202) 

N1=NDXM+1 

N0R3=NDR4-1 

DO .20 N= 1. NDXM ' 

• SUMMS=0.0 

SUMMS = SUMMS + 0 .S»< W( 1,N)+W(NDR4 ,N) ) 

I F ( NDR4 • EG • 2 ) AVL0<N> « SUMMS 
I F ( NDR4 . EQ • 2 ) GO TO 20 
DO 22 NR=2.NDR3 
22 S(JMMS=SUMMS+W(NR.N) 

AVLOI N ) = SUMMS /NOR 3 
20 CONTINUE 

00 30 N= N1.N0X1 
SUMMS=0.0 

SUMMS = SUMMS+0 . 5* < W< 1 , N > +W< NDR4 , N ) ) 

I F ( N0R4 . EQ * 2 ) AVLD<N) = SUMMS 
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OOU059 
000060 
000061 
0 0 0 0 o 2 
000063 
000064 
000065 
000066 
000067 
000068 
000069 


IF(N0R4.EQ.2) CO TO 30 
UO 33 NR = 2. NDR3 
33 SUMMS-SUHMS+W(NR.N> 
AVLD(N)=SUMMS/NDR3 

30 CONTINUE 
“ SUM=0. 

I F ( NOXMAC .EG. 0) GO TO 35 
00 31 N= 1. NOXMAC 

31 SUM= SUM»AVLD<N>*ABEO<N)»OX«RHOSa<N) 
. AVMSLO = SUM/WTACMS 

SUM=0. 


000070 

000071 
000072 
000073 
000074 
000075 
000076 
0000/7 
000078 
000079 
0 0 0 0 B 0 
000081 
000082 
000003 
,000084 
000085 
000086 
000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
0001U5 
000106 
000107 
000108 
000109 
OQOllO 
000111 
000112 


35 CONTINUE 

!F< (NDXl-NDXM) .FQ. 0> GO TO Ail 
00 32 N- N1.NHX1 

32 SUM = SUM+ A VLO (N)*A9EO(N)»DX»RHOSB(N) 

AVSGLD=SUM/WT3G 
40 CONTINUE 

DO 10 N = 1 « NOX 

10 WRITE < 6 i 203 )N, AVLO<N) 

1 »(W(NR»N),NR=1.NDR4) 

IFITINE .LT. 1.1E-5) AVHSL1=AVMSLD 
I F ( T I ME LT. 1.1E-5) AVSGL1=AVSGLD 
AVRC02=WTACMS“( AVMSLQ-AVMSLl J/TIME 
AVRH20=WTSG»( AVSGUO-AVSGtl l/TIME 

DIMENSION Fl(9),F2(9).F3(9>,F4I9), K5( 9 ) , F6 ( 9 ) . F7 ( 9 ) 

WRITE! 6.205) FI. AVMSL0iF2.AVSGLD.F3,AVRC02.F4,AVRH20.F5»T0TKWH. 
1F6.TOTHTC.F7.AVPH20 
205 FORMAT (////(9A6>E8.4»6X.9A6»F8.4 )) 

DATA Fl/' AVG C02 LOADING JN C02 SORBENT (LB/LB)'/ 

DATA F2/' AVG H20 LOADING IN DESICCANT (LB/LB)'/ 

DATA F3/' TIME AVG C02 ADSORPTION RATE (LB/HR)'/ 

DATA F4/ ' TIME AVG H20 ADSORPTION RATE (LR/HR)'/ 

DATA F5/ ' ELECTRICAL HEAT INPUT FROM START OF CYCLE (KWH)'/ 

DATA F6/' heat ADDED BY COOLANT FROM START OF CYCLE (BTU)'/ 

DATA F7/ ' TIME AVG OUTLET PH20 (MM)'/ 

RETURN 

499 FORMAT( 8H1BED NO. 13) 

100 FORMAT ( 1H0 i 16HADS0RPT ION CYCLE 13/ 

1 3X.5HT1ME* >F9 . 5» 1X2HHR.F12 . 3.1X. 3HMIN# 

1 5X.15HTIME I NCREMENT *F7 , 5 > 1X2WHR ) 

101 FORMAT (//2X.10HAXUL N0DE.3X.7HPC02.MM.5X.7HPH20.MM.8X. 

.1 11HGAS TEMP. F 

1 . 8X . 15HSORPENT TEMP. F > 6X . 15HC00LANT TEMP# F .7X.15HHX CO 

2HE TEMP. F ) 

102 FORMATf /( I9.2F12.4.5X. 4<F14.4,6X) ) > 

202 FORMAT (// 3BH0L0ADING AT INTERIOR OF SORBENT, LB/LB 

1 //4X.4HS0RB/4X.4HN0D 

1E.3X. 3HAVG , 9X, 

1 lH1.9X.lH2»9X.lH3.9X.iH4 

2 / 6H AXIAL/3H NODE > 

203 FORMAT ( 1 5 , 4 X , 12{ F6 , 4 , 4X ) ) 

END 
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000014 
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000016 
000017 
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000019 
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000021 
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000036 
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000041 
000042 
000043 
000044 
000045 
000046 
0000 47 
000048 
000049 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000058 


SUBROUTINE PRPES8 ( I BED ) 

C 

C 

COMMON/AD/ TC< 20 > » PH20I >TGI .PA > PX (2.20>.PC02I .TS (20) 

l.TC C 20 ' > TX (20). TS1 <20>.TS2 (20).TX1 (20),TX2 < 20 ) . TCI (20). 
2TC2 (20). W ( 4 . 20 ) * PT ( 20 > . OMR .GMW.GVIS. PN2.P02. 

3 ABED ( 20) . AVC<20 ) . ASG(20 ) , ASXI20 ) . AGX(20 ) . AXC(20> . 

4 AVX< 20 ) . RHOG < 20 ) . RH0S3( 20) .RHOS( 20 ) . RROC ( 20 ) . RHOX ( 20 ) , 

5CPG ( 20 > .CPC( 20 > .CPXC20 ) >CPS< 20 > >DX >CPL( 2 ) »DP( 20 ) « 
6P0UT(10).TIMET(10).WTACMS.WTSG .PUMP(10).VPUMP(10).CPP(20), 
7NPSET(3),N0R4>NDXMAC, NBCOUT , N0X1 > NDXM, NOG, IDSORU(20). 

8 HXGC20 ) ,HXS(20) ,HXC(20 > .HSG120) . 

9SK(20).TKX(20).DH<20).OIP(20),GK(20) . UC( 20 > > T268 . T0TC02 > T0TH20 . 
1SUMPTM, A VMStl * A VS5L1 » RTR( 20) « TMA X« 

1 TOTKWH > HTR1 ( 20).WC>TOTHTC,WCC . PC02A , VC02A , S ABC02 . TC02A. 

lRSl ( 20.9), A( 20 ) ,F( 20 ) »C< 20 ) . VS( 20 ) .OVS< 20 ) i OVSK 20> . RS< 20 ) . 

1UG( 20 ) . PS( 20 ) , DS( 20 ) , CS1 < 20 > . CS2( 20 ) ,C1(4. 20> ,C2( 4 .20) ,D1( 4,20) , 

202(20).PC1<20),PC2(2Q),PC3(20).C1P<20),C2P(20).C3P(20).D1P(20). 

3FR (2,20), PI ( 20 ) , P2< 20 ) • P3( 20 ) . WS( 20 ) " CRK 20 . 4 ) » CR2 ( 20 . 4 ) i CR3 

4(20,4), C3(4.20),B<4.20),Q(4,20),CPl(20),CP2(20),X(20).VOIf)P(20), 

5 WM<2), TIME. CYCLE. DTO. OTMAX. WI . T I i PC02C, 

6V0LCAR . RC02C , . 

7NCYCLT , NPR I NT, NCYCLE • NDTCON. NTEMP , NSTART , NPR. DT , DTT( 4 ) . SABCOS 
DOUBLE PRECISION Cl.C2.01.02»PCl.PC2,PC3.Pl.P2.P3.C3.a,B» 

1 CPI tCP2/X* C 1P.C2P.C1P>DIP 

DIMENSION AVLU < 4 1 ) 

£QUIVALENCE(N0X,n:X1). 

c 

■ AVMSLO=0.0 
AVSGLD=0.0 
AVRC02=0.0 
AVRH20 5 0 . 0 
T I MEM = 60 . »T I ME 
WRITE<6-499)IBED 

RR I TE ( 6 , 100 ) NCYCLE .TIME .TIMEM.DT 
WRITE (6,101) 

WRITE <6,102)(N.PT(N),TG(N).TS(N),TC(N),TX(N),N=1.NDX) 

I F C < NPSET ( 1 ) ,GT, 0) , OR • ( NPSET ( 2 ) ,GT. 0)) GO TO 99 
99 WRITE (6,202) 

N1*N0XM*1 
N0R3=NDR4-1 
00 20 N= 1. NOXM 
SUMMS 5 0 • 0 

SUMMS=SUMMS*Q.5*(W< 1,n)+W<N0R4,N) > 

IFCNDR4 .EQ. 2) AVLO(N) 5 SUMMS 
I F ( NDR4 • EQ , 2 ) GO TO 20 
DO 22 NP-2'W R3 
" 22 SUMMS=SUMMS+W( NR, N ) 

A(/LO( N ) =SUMMS/NDR3 
20 CONTINUE 

DO 30 N= Nl.NDXl 
SUMMS 5 0 • 0 

SUMMS 5 SUMMS*Q >5*(W(1,N)+W( NOR 4 , N > ) 

IF(NDR4.EQ.2) AVLO(N) = SUMMS 
IF ( NDR4 . EG . 2 ) GO TO 30 
DO 33 NR=2. NDR3 
33 SUMMS 5 SUMMS* W < NR - N ) 

AVLD(N) 5 SUMMS/NDR3 


• NEW 
•NEW 
•NEW 
•NEW 

. »NF.W 
•NEW 
•NEW 
•NEW 
•NEW 
•NEW 
•NEW 
•NEW 
•NEW 

• NEW 
•NEW 
•NEW 
•NEW 
•NEW 
•NEW 

• NEW 
•NEW 
•NEW 

• •-1 
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000079 

000080 

000081 
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000083 

000084 

000085 

000086 

000087 

000088 

000089 

000090 

000091 

000092 
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000103 

000104 
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3U CONTINUE 

I F ( NDXMAC .EQ. 0) CO TO 35 
SUM-0 • 

DO 31- N* 1, NDXMAC 

31 SUM= SUM+AVLD<N'»ABED<N>«DXoRHOSB(N> 

AVMSLU = SUM/WTACMS 

35 CONTINUE 

I F ( ( N0X1-NQXM ) -EG. 0) GO TO 40 
SUM-0 • 

DO 32 N= N1,NDX1 

32 SUM = SUM+A VLO< N)»A9ED(N ) •DX*RHOSB( N > 

AVSGLO=SUM/WTSC 

40 CONTINUE 

00 10 N=1.NDX 

10 WRITE ( 6 , 203 )N> AVLO(N) 

1 .<W<NR,N>.NR=1.NDR4> 

I F ( T I ML .LT. 1 . 1E'5 ) AVMSL1=AVMSLD 
I F < T I ME .LT. 1.1E-5) AVSGL1=AVSGLD 
AVRC02=WTACMS»(AVMSL1-AVMSLD)/TIME 
AVRH20=WTSG»< AVSGL1-AVSGLD J/TIME 

DIMENSION F1<9).F2(9).F3<9>.F4<9>, F 5( 9 > , F6 ( 9 > . F7( 9 > . F8 ( 9 > , F9( 9 > 
WRITE (6. 205) Fl,AVMSLOiF2.AVSGLD.F3.AVRC02.F4,AVRH20.F5.TOTKWH. 
1F6.T0THTC. F8.PC02A. F9.VC02A 

205 F0RMAT<////(9A6.F8.4.6X.9A6.F8.4 >) 

DATA FI/' AVG C02 LOADING IN C02 SORBENT (LB/LB)'/ 

DATA F2/' AVG H20 LOADING IN DESICCANT (LB/LB)'/ 

UATA F3/ ' TIME AVG C02 DESORPTION RATE (LB/HR)'/ 

DATA F4/> TIME AVG H20 DESORPTION RATE (LB/HR)'/ 

DATA F5/' ELECTRICAL HEAT INPUT FROM START OF CYCLE (KWH)'/ 

DATA F6/' HEAT ADDED 9Y COOLANT FROM START OF CYCLE (BTU)'/ 

data f7/< cabin C 02 partial pressure <mm>>/ 
data Fa/* accumulator co2 pressure cpsia)'/ 

data F9/' C02 ACCUMULATOR VOLUME (CU FT)’/ 

499 FORMAT(8HlBE0 NO. 13) 

100 FORMAT (1H0.16HDESORPTION CYCLE 13/ 

1 3X.5HTIME*.F9,5* 1X2HHR .F12. 3<1X<3HMIN< 

1 5X.15HTIME INCREMENTS. 5. 1X2HHR) 

101 FORMAT ( //2X. 1QHAX J AL NODE , 10X. 14HT OTAL PRESS, MM, 6X.14HG4S TEMP/DE 
1G F.5X.19HS0RBENT TEMP. DEG F. 2X . 18HCOOLANT . TEMP. BEG F.3X.19HHX CO 
2RE TEMP. DEG F ) 

102 F0RMAT(/(I9,11X,5<F14.4.6X>)> 

103 FORMAT < /21HOC02 DESORPTION RATE'F7 . 4 , 1X5HLB/HR . 5X . 20HH20 DESORPTI 
ION RATE=F7.4| 1X5HLB/HR ) 

200 FORMAT ( 1H0/2X . 10HAX I AL NODE . 13X . 9HM0LE FRAC.7X. 
l2X. 13HCC2 RATE.M/HR.6X. 13HH20 RA7E>M/HR) 

201 FORMAT ( /( 1 9 , liX . 3< 4x , F12 . 6 , 4X > ) 1 

202 FORMAT (// 31H0L0A0ING AT INTERIOR OF S0RBENT//4X . 4HS0RB/4X . 4HN00 
1E.3X. 3HAVG . 9X. 

1 1H1.9X.1H2.9X.1H3.9X.1H4 

2 /6H AX1AL/5H NODE) 

203 FORMAT ( I5.4X.l2IF6.4i4X)) 

RETURN 

END 
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»' HLT READ1.1. 710/12, 56801 


NASA CR-I I 2098 


nr.ocoi 

11C-C0U2 
M0UOU3 
000 (If 14 
000005 
0 0 0 0 0 0 
OOOOU 7 
000008 
0COU09 

OOOOIO 

OC'OOll 

000012 

0Q0U13 

0CU014 

000015 

000016 

000017 

000018 

000019 

000020 

000021 

0C0022 

000023 

000024 

000025 

000026 


, 1 

SUBROUTINE REApl 
COMMON/Bl/ 

1 ABED <20 ) . A VC < 20) . ASGC20) .ASX (20) . AGX<20 ) ,AXC( 20) , 

2 A VX ( 20 ) » RHOC (2Q)<RH0S3(20). RHOSI 20)>RH0C(20)> RHOX ( 20 ) » 

3CPG ( 20 ' • CPC< 20 ) > CPX( 20 ) . CPS( 20 ) » OX t CPL< 2 > > DP< 20 > » 

4P0UT< 10) . TIMETUO) .WTACMS. VTSG .PUMP! 10 >. VPUMP ( 10 >. CPP< 20) , 

5 NPSET ( 3 ) , VI0P4 ■ NDXMAC • N8C0UT » N0X1 » NDXM. NOG. 1DS0RR(20) 

COMMON/BlA/ 

1 HXG<20).HXS(20).HXC<20>.HSG<20>. 

2SK ( 20 ) , TKX ( 20 ) i DH( 20 ) . 0 1 P < 20 ) r GK ( 20 ) , UC < 20 ) . T268 . T0TC02 . T0TH20. 
3SUMPTM. AVMSL1. AVSGL1 , HTR< 20 > . TMAX 

1 • TOTKWH* HTR1 ( 20 ) , WC . TOThTC < WCC . PC 02A . VC02A . SABC02 . TC02A 
NAMELIST/OB / ABED.AVC. ASX.AGX. AVX,RHOG,RHOSB.RHOS.RROC. 
1RM0X.CPG, CPC. CPXiCPp. OX. NPSET. NDR4 , NDXMAC . NBCOUT. NDX1 . NDXM. NOG. 
2P0UT, TIBET. PUMP , VPUMP . I DSORB . CPL . DP 

NaMELIST/DBA / HXG.HXS.HXC, HSG.SK. TKX.DH, DIE. GK, TC I N, HTR1 . TMAX 

■ l.WCC • 

eou i valence (Tci N.T268.)- 
READ <5. OB) 

' WRITE! 6. OB) 

READ! 5 . DBA > ' T . . . 

WRITE! 6, DBA) 

DO 10 NU.N0X1 ' 

10 ASG<N)=6.oRH0SB<N>/RH0S<N)/DP<N> 

RETURN 

END 


« ELT READ2. 1.71Q712, 56801 . 1 


000001 

000002 

000003 

000004 

000005 

000006 

000007 

000008 

000009 

OOOOIO 

000011 

000012 

000013 


SUBROUTINE REAQ2 
COMMON/BID/ 

1 HXG!20).HXS(20).HXC(20).HSG(20) , 

2SK(20),TKX(20),DH(20).DIE(20).GK(20) , UC ( 20 ) . T2S8 , TOTC02. T0TH20, 
3SUMPTM. 4VMSL1.AVSGL1. HTR < 20 ) . TMAX 

1 .TOTKWH. HTRK 20 ) > we , TOTHTC . WCC , PC02A . VC02A . SABC02 . TC02A 
NAMEL1ST/DBD / HXG.HXS.HXC.HSG.SK.TKX.DH.DIF.GK, tcin.htri.tmax 
1 .WCC 

E QU I VALENCE ( TC I N , T268 ) 

READ ( 5 . DBD ) 

WR I TE ( 6 < DBD ) 

RETURN 

END 


p F_LT READ3. 1.710712. 56802 . 1 


000001 

000002 

000003 

000004 

000005 

000006 

000007 

000008 

000009 

OOOOIO 

000011 

000012 

000013 

000014 

000015 

000016 

000017 

000018 

000019 

000020 

000021 

000022 

000023 

000024 

000025 

000026 

000027 


SUBROUTINE REAQ3 
C0MMON/B2/ 

1 ABED<20).AVC(20).ASG(20). ASX ( 20 ) . AGX ( 20 ) , AXC ( 20 > , 

2AVX(20) .RHOG(20>.RHOS9(20).RHOS(20).RHOC(20).RHOX(20), 

3CPG( 20 ) . CPC< 20 ) , CPX( 20 ) . CPS( 20 ) . DX . CPL I 2 ) . DP( 20 ) i 
4POUT(10 ),TIMET(iO),WTACMS,WTSG , PUMP (10). VPUMP( 10 ) > CPP( 20 > . 

5 NPSET ( 3 ).NDR4. NDXMAC, NBCOUT. Mnxi, NDXM, NOG. ID50RB(20> 

COMMON/B2A/ 

1 HXG(20).hXS(20).HXC(20),HSC(20>, 

2SK(20).TKX(20)|DH(20).DIF<2D),GK(20) . UC( 20 > > T268 , T0TC02. T0TH20, 
3SUMPTM. A VMSL1 . A VSGL1 . HTR< 20 ) , TMAX 

1. TOTKWH. HTRK 20 ) .WC, TOTHTC, WCC, PC02A.VC02A.SABC02.TC02A 
NAMELIST/MB / ABED.AVC, ASX.AGX, avx.rhog,rhosb,rhos.rhoc, 
1RH0X.CPG. CPC > CPX i CPP-DX. NPSET. NDR4, NDXMAC, NBCOUT. NDX1, NDXM, NOG. 
2P0UT, TIMET, PUMP, VPUMP, I DSORB , CPL . DP 

NAMELIST/MBA / HXG, HXS . HXC . HSG , SK. TKX , DH, D IF , GK, TCIN.HTRI.TMAX 

l.WCC 

EQU I VALENCE! TCI N.T268) 

DATA RHCG/ 20*0-0003/ 

READ! 5. MB ) 

WR I TE ( 6 - MB ) 

READ ( 5 , MBA > 

WR I TE ( 6 > MBA ) 

DO 10 N=1.NDX1 

10 ASG(N)=6.»RH0SB<N)/RH0S!N)/DP(N) 

RETURN 

END 
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oooooi 

000002 

000003 

000004 

000005 

000006 

000007 

000008 

000009 

ooooio 

oooon 

000012 

000013 


SUBROUTINE REA04 
COMMON/82D/ 

1 HXG < 20 ) i HXS< 20 ) . HXC< 20 ) . HSC ( 20 ) . 

2SK< 20 ) < TKX( 20 ) < DH< 20 > »D 20 ) » GKt 20 > <UC( 20 )< T26«i T0TC02. T0TH20. 
3SUMPTM.AVMSU,*AVSGL1»HTR<20> »TMAX 

1.TOTKWH.HTR1C20) . WC . TOTHTC . WCC » PC02A . VC02A . SABC02. TC02A 
NAMELIST/MBD / HXG.HXS.HXC.HSG.SK,TKX,DH,DIF.GK| TC I N, HTR1 , TMAX 
l.WCC 

EQU I VALENCE < TCI N • T268 ) 

READ< 5 » MBO ) 

WR I TE ( 6 » MBD 5 

RETURN 

END 
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NASA CR-I 12098 


6* ELT START. 1 . 710719, 62350 . 1 


000001 

000002 

000003 

000004 

000005 

000006 

000007 

000008 

0C0C09 

000010 

000011 

000012 

000013 

000014 

000015 

000016 

000017 

000018 

000019 

000020 

000021 

000022 

000023 

000024 

000025 

000026 

000027 

OOOU28 

000029 

000030 

000031 

000032 

000033 

000034 

000035 

000036 

000037 

000038 

000039 

000040 

000041 

000042 

000043 

000044 

000045 

000046 

000047 

000048 

000049 

000050 

000051 

000052 

000053 

000054 

000055 

000056 

000057 


subroutine start 

c 

COMMON/AD/ TG( 20 ) i PH20I -TG! .PA , PK (2.20).PC02I .TS (20) "NEW 

l.TC (20). TX (20. TS1 (201.TS2 (2QJ.TX1 ( 20 ) . TX2. ( 20 > . TCI C20>. «NEW 

2TC2 (20), W (4.20),PT C 20 > . GMR .GMW.GVIS. PN2.P02, «NEV' 

3 ABED(20),AVC(20),ASG(20).ASX(20).AGX(20!.AXC(2n), «NEU 

4AVX(2O).RH0Gl20).9HOS9(2O).RHOS(20).RNOC(20),RHOX(20). »NEW 

5CPG<20).CPC(20) ,CPX(20) , CPS ( 20 > . DX. CPU 2 ) , DPI 20 ) # ®NEW 

6P0UT( 10 ) .TIMET (10 ) .WTACMS.WTSG .PUMP! 10 > . VPUMP ( IQ ) . CPP( 20 ) . ‘NEW 

7NPSET ( 3 > , N0R4 . NDXMAC . NBCOUT . NCX1 . NDXM. NOG . IDSORpf 20 ) . ‘NEW 

8 HXG(20),HXS(20), HXC (20),HSG(2C), «NEW 

9SK(20) ,TKX(20)<OH(20).0!F(20),GK(20) . UC ( 20 > > T268 . T0TCO2- T0TH20. «NEw 

1SUMPTM. AVMSL1.AVS6L1»HTR(20) .TMAX, «NEW 

1 TOTKWH . HTR1 ( 20 ) > WC . TOTHTC . WCC ■ PC02A . VC02A . SABC02 . TC02A. oNEV 

1RSK20.9), A(20).F(20),C(20).VS(20),DVS(20)iDVSl(2n),RS(20), »NEV 

1UG(20’,PS(20).DS(20).CS1<20).CS2(20).C1(4,20).C2(4,20).D1!4,20). "NEW 

2D2(20).PC1(20).PC2(20),PC3(20),C1P(20),C2P(20).C3P(20).D1P(20>, «NEW 

3FR < 2 i 20 ) . P1<20).P2<20).P3(20).WS(20).CR1(20.4).CR2(20.4),CR3 "NEW 

4(20.4), C3(4,20),B(4.20>.Q<4,20).CP1(20).CP2(20).X!20).VOIOF<20). «NEw 

5 ' WM<2). TIME. CYCLE. DTO. DTMAX.WI ,TI|PC02C, »NEW 

6V0LCA8 , RC02C . »NEW 

7NCYCLT,NPRINT,NCVCLE.NDTC0N.NTEMP.NSTaRT,NPR,0T.DTT(4),SABC0S *NEW 

DOUBLE PRECISION Cl , C2. 01 . 02. PCI . PC2 , PC3, PI , P2, P3 . C3, 0, 8. »NEW 

■ 1 CP1.CP2.X. C1P.C2P.C3P. DIP »NEW 

C •*-! 


00 5 N= 1 . N0X1 

1 * I FN ( N . NDXM ) 

CPS(N)=CPP(N)+W(1.N)»CPL< l> 

5 RS(N)=DP(N)/2.000 
DO 30 N=- 1. NDX1 

30 VO I OF ( N > = 1. - RHOSB(N)/RHOS(N) 

DO 115 N=1,NDX1 
115 A ( N ) = GMR/ABED(N)/PA/GMW 
N0R = NDR4-1, 

NDR2= 2*NDR ■ 

NDR3=NDR2+1 

DO 10 I =1 . NDX1 

VS( I )=4./3.»3.1416»RS! I J*»3 

DVS ( I ) = VS < I J/NQR 

OVSK I )=DVS< I >/2 

RSI ( I , i )*o . 

DO 10 K = 2.NDR3, 

10 RS1< I .K) = CBRT(3,/4,/3,1416«(4,/3.»3.1416«RS1( I . K» 1 > »»3+DVSl ( I > ) ) 

DO 11 m.NDXl 

CR1( I.1)«DVS1( ! )»RHOS( I ) 

CR2( I ,1>*0. 

CR3( 1 .1) = 4.»3,1416»RS1( I • 2>«*2*DIF< I >/<RSl( 1 . 3 )-RSl( 1 , 1 > )«RHOS( I ) 

00 11 K=2.N0R4 

CR1( I .K)»DVSU ) 4RH0S ( 1 ) 

CR2< I ,K)=4,»3.1416»RS1( I < 2*K-2 > **2*D IF( I )/< RS1( 1 ,2»K-1)-RS1( 1 . 2»K- 
13) )»RH0S( I ) 

11 CR3 ( I .K)a4 .•3.141t»RSl< I >2»K)»«2»DIFl I )/(RSl< I . 2*K+1 ) -RSI ( I , 2«K-1 ) 
1 )«RHOS< I ) 

DO 12 N=1 . N0X1 

12 CR1 < N.NDR4 )=CRl< N# 1 ) 

RETURN 

END 
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NASA CR-I I 2098 


'» ELT TGLCOL. 1.710514, 58260 , 1 


00Q001 

000002 

000003 

000004 

000005 

000006 

000007 

OOQOOB 

000009 

000010 

00Q011 

000012 

000013 

000014 

000015 

000016 

000017 

000018 

000019 

000020 

000021 

000022 

000023 

000024 


SUBROUTINE TGLCOL(TC,NOXMAX.UC.RHOC.CPC.CX.AXCiHXC>T268,TX.DX.DT, 
1 A VC i NOGLIN,DTO.T81,TS2,TX1,TX2,TC1.TC2> 

01 HENS I CN 01(20 >.C2(20>.C3(20>»D<20>.TC<1>*TX<1>|HXC(1),AVC<1># 

1 TS1 < 1 > » T82 < 1 > , TX1 ( 1 > , TX2( 1 > . TCI ( 1 > . TC2 ( 1 > 

DIMENSION UC(1),RH0C(1).CPC(1).AXC(1) 

DN=DT+DTO 

DO 10 N’l.NDXMAX 

CC1=-UC<N) 

CC2=HXC(N>/( CPC< N)*RH0C(N))»AVC(N)»0>5 
IF( UC<N) ,GT. 0. ) GO TO 5 
C3(N)=-CC1/DX 
C2(N)=i./DN+CC2-C3(N) 

Cl ( N » = 0 • 0 
GO TO 10 

5 Cl ( N ) = CC1/0X 

C2(N> = l./DN * CC2 • Cl ( N > 

C3 ( N ) =0.0 

10 . D(N)=TC2(N)/DN*CC2«TX1(N)»2. - CG2»TC2(N> 

. CKNOGLIN) =0. 

C3 ( NOGL IN) » 0, 

D(N0GL1N)«D(N06LIN) ♦ABS(UC(N0GLIN))/DX»T268 
Call FDEaiM<Cl>C2iC3,D.TC,NDXMAX) 

RETURN 

END 


f» ELT TSORB. 1.710719, 62351 » 1 


000001 

000002 

000003 

000004 

000005 

000006 

000007 

000008 

000009 

ooooia 

000011 

000012 

000013 

000014 

000015 

000016 

000017 

000018 

000019 

000020 

000021 

000022 

•000023 

000024 


SUBROUTINE TSORB 

COMMON/AD/ T5t 20 > iPH20I • TC I ,PA , PK (2,20>.PC02I .TS (20) 

l.TC (20). TX (20). TS1 (20>.TS2 (20).TX1 (20).TX2 (20J.TCI (20). 
2TC2 (20). w ( 4 . 20 ) , PT (20). GMR .GMW.GVIS. PN2.P02, 

3 ABID(20) , AVC(20).ASG(2D).A8X(20>.AGX(20).AXC(20), 

4 AVX < 20 ) . RHOG< 20 > * SH0S9( 20)>RHOS(20)> RNOC ( 20 ) • RHOXI 20 ) . 
5CPG(20).CPC(20).CPX(20).CPS(20).DX.CPL(2),DP(20)i 
6POUT<10>,TIMET(10),WTACMS,WTSG .PUMP(10).VPUMP(10).CPP(20), 

7NPSET ( 3 ) , NDR4 i NDXM AC i NBCOUT , NDX1 , NDXM, NOG. IDSORB<20). 

8 HXG(20).HXS(20).HXC(20).H8G(20). 

9SK(20).TKX(20)fOH(20).0If r (20).GK(20) . UC( 20 ) . T268 , T0TC02 .T0TH20. 
1SUMPTM.AVMSL1(AVS6L1.MTR(20>.TMAX. 

1 TOTKWH.HTR1(20>.WC,TOThTC.WCC.PC02A,VCO2A,SABCO2. TC02A, 
1R8K20.9), A ( 20 ) . P ( 20 ) . C< 20 ) . VS( 20 ) .DVS( 20 ) » DVS1 < 20 > . RS< 20 > . 

1UG(20) , PS( 20 ). 0S< 20 ) i CS1 ( 20 >.CS2( 20). 01(4.20,02(4. 20 >.01(4,20). 
2D2(20),PC1(20).PC2(20).PC3(20),C1P(20).C2P(20),C3P(20),D1P(20>. 

3FR (2,20). P1(20).P2(20) « P3( 20 ) . H6( 20 ) . CR1( 20- 4 ) . CR2( 20, 4 ) ,CR3 

4(20.4), c3(4,20)|8(4.20),Q(4,20),CP1(20).CP2(20>.X(20),VOIDP(20), 

5 WM(2). TIME, CYCLE, DTO, DTMAX.WI , TI ,PC02C, 
6V0LCAB.RC02C, 

7NCYCLT, NPRI NT, NCYCLE i NDTCON, NTEMP , NS T ART, NPR, DT , DT T ( 4 ) , SABCOS 
DOUBLE PRECISION Cl . C2 « Dl. 02 . PCI . PC2. PC3 , PI , P2, P3. C3, 0, B, 

1 CPI , CP2 i X , C1P.C2P.C3P, DIP 

0 1 MENS ION SI ( 41 ) , 82( 41 ) , S3 < 4 1 > , B1 ( 41 ) 


000025 DO 10 N»1 . NOXl 

000026 T«(DT+DTO)/CPS(N)/RHOSB(N> 

000027 T1«0.5»T*(AS8(N>»HSG(N)+ASX(N)*HXS(N) ) 

000028 CS1(N)=CS1(N)»(1.0*T1) 

000029 CS2(N)=CS2(N)«(1.0*T1> 

000030 BKN ) *TS2(N)*CS1<N>*PT<N)-CS2(N)»(P1<N>*P2(N>»(W(NDR4,n)-WS(N) >♦ 

000031 1P3(N)»PT(N) )*T«!A8C(N)«HSC(N)«TC ( N >*ASX( N )«HXS< N >• 

000032 2 TXKN) >-Tl*T82(N> 


000033 

Sl(N)=-T*SK(N)/OX/DX 

000034 

S2(N)«1 . -2. »$KN)*Tl 

000035 

S3( N ) =S1 < N ) 

000036 

10 CONTINUE 

000037 

S2( 1 ) = S2< 1 >*S1< 1 ) 

000038 

Sl( 1 ) = 0 . 0 

000039 

S2( NDX1 ) *82< NDX1 )*S3( NDXl > 

00004Q 

S3( NQX1 ) “0 . 

000041 

NSG=NDXM*1 

000042 

S2 ( NDXM ) « S2 ( NDXM 0 *S3 ( NDXM ) 

000043 

S3 ( NOXM ) = 0 > 

000044 

S2( NSG ) ■ 52 (NSG) +81 (NSG) 

000045 

SI ( NSG ) = 0 • 0 

000046 

CALL FDEQIM<Sl,S2iS3,81,TS.NDXl> 

000047 

RETURN 

000048 

END 


•NEW 

•NEW 

•NEW 

•NEW 

•NEW 

•NEW 

• NEW 
•NEW 
•NEW 
•NEW 

• NEW 
•NEW 
•NEW 
•NEW 
•NEW 
•NEW 
•NEW 

• NEW 
•NEW 

• NEW 

• NEW 
•NEW 
••-1 
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» ELT TSORBA. 1.710719,. 62352 


NASA CR-I I 2098 


. 1 


oooooi 

000002 

oconn3 

000004 
000005 
000006 
000007 
000008 
00U0U9 
000010 
000011 
000012 
000013 
000014 
UU0015 
000016 
000017 
000018 
000019 
000020 
000021 
000022 
000023 
U 0 0 0 2 4 
000025 
000026 
000027 
000028 
000029 
000030 
000031 
000032 
000033 
000034 
000035 
000036 
000037 
000038 
000039 
000040 
000041 
000042 
000043 
000044 
000045 
000046 
000047 
000048 
000049 
000050 
000051 
000052 
000053 
000054 


SUBROUTINE TSORBA 
COMMON/AO/ TG(20>»PH20I 


.TCI .PA 


PK (2.20) .PC02I .TS (20) 


l.TC (20), TX (20). TS1 (20).TS2 (20>,TX1 (20),TX2 (20). TCI (20). 


2TC2 ( 20 > . W ( 4 . 20 ) , PT <20), 


GMR .GMW.GVIS. PN2.P02. 


3 ABED(20).AVC(20).ASG(20).ASX(20).AGX(20).AXC(20). 

4 AVX < 20 1 . RHOG( 20 > . SHOSB( 20 ) . RHOS( 20 ) . RHOCt 20 > . RHOXt 20 ) . 

3CPG ( 20 ) .CPC (20 ) ,CPX( 20 ! . CPS< 20 ) . OX . CPL ( 2 ) . CP ( 20 ) , 

6P0UT < 10 ) • T I MET( 10 ) , WTACMS, WTSG . PUMP ( 10 ) . VPUMP( 10 ) . CPP ( 20 ) , 

7NPSET ( 3 > , N0R4 , NOXMAC , NBCOUT . NDX1 , NDXM , NOG . I DSORB( 20 ) > 

8 HXG< 20 ) / HXS( 20 > >HXC ( 20 ) ,HSG( 20 ) » 

9SK( 20 > • TKX( 20 ) » OHt 20 ) . 0 1 F< 20 ) . GK( 20 ) . UC( 20 ) . T268 . T0TC02 . T0TH20. 
iSUMPTN » AVMSU1. A VSGL1 , HTR ( 20 ) . TMAX > 

1 TOTKWH,HTR1(2Q>.WC,TOTRTC.WCC,PC02A,VC02A.SABC02. TC02A. 

1RS1 (20,9). A (20) .F(20).C(20>.VS<20>.DVS(20>iOVSl(20>.RS<20> . 

1UG( 20 ) ,PS(20 ! ,QS( 20) ,CS1 ! 20) ,CS2( 2D ) . Cl< 4 . 20 > . C2< 4 , 20 > .01 ( 4 , 20 ) , 
202<20).PC1(20).PC2(20).PC3(20).C1P(20),C2P(20).C3P(20).D1P(20>, 
3FR( 2.20), Pl(20 ) , P2(20 ) ,P3(20 ) . WS< 20 I , CR1< 20. 4 ) ,CR2( 20 , 4 ) , CR3 

4(20.4), C3(4.20) ( B(4.20>.Q<4,20),CP1(20),CP2(20),X(20).VOIDF(20). 

5 WM( 2 ) . T t BE , CYCLE > DTO. DTMAX . W I . T 1 1 PC02C . 

6V0LCA3.RC02C, 

7NCYCLT,NPRINT,NCYCL£,NOTCON,NTEMP,NSTaRT.NPR,DT,DTT( 4) .SABCOS 
DOUBLE PRECISION Cl . C2 . 01 . 02 > PCI . PC2 , PC3 , PI , P2 , P3. C3 , 0 , B , 

1 CP1.CP2.X. C1P , C2P , C3P , DIP 
DIMENSION Sl(4l),S2<41).S3<41>.Bl(41> 

DO 10 N=1.NDX1 
T»(OT+DTO)/CPS(N)/RHOSB(N) 

T1=0.5»T»(AS0<N)*WSG(N)+ASX(N)»HXS(N) ) 

CS1(N)=CS1(N)«(1.0+T1) 

CS2(N)=CS2(N)«(1.0+T1) 

I = I FN( N, NDXM ) 

TGAVGKTG(N) 

BUN) =TS2 ( N ) *CS1 ( N ) • 

lPK(I'.M), ' 

2 

1P3(N)» 

2PK ( I , N ) ’ " 

3 )*T«(ASC(N)«HSG(N)oTGAVGl+ 

4ASX(N)»HXS(N)»TXKN) )-Tl»TS2(N) 

Sl'<N)*-T*SK<N)/OX/OX 
S2(N> = 1 • -2. *S1 ( N)*Tl 


~CS2( N)» (Pl< N)+P2( N) •( W( NDR4 , N) -WS ( M ) ) + 


S3 ( N ) = SI ( N ) 

10 CONTINUE 

S2( 1 ) = S2ll )+Sl( 1 ) 

si(l)= 0.0 

S2(NDX1)=S2(NDX1)*S3(NDxD 
S3 ( N0X1 ) =0 . 

NSG=N0XM+1 

S2 < NDXM > =S2 < NDXM )*S3(NDXM> 

S3 < NDXM ) =0 . 

S2(NSG>= S2< NSG >*S1 ( NSG) 

SI ( NSG ) = 0 . 0 

CALL FDEQIM(S1.S2iS3,B1.TS.NDX1> 
RETURN ' 

ENO 


• NEW 

• NEW 
•NEW 
•NEW 

• NEW 
•NEW 
•NEW 

• NEW 

• NEW 
•NEW 

• NEW 
•NEW 
•NEW 

• NEW 

• NEW 

• NEW 

• NEW 
•NEW 
•NEW 

• NEW 
•NEW 
•NEW 
••-1 
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• l 


300001 

300002 

300003 

3000Q4 

300005 

300006 

300007 

300008 

300009 

300010 

300011 

300012 

300013 

300014 

J00015 

300016 

300017 

300018 

300019 

300020 

300021 

J00022 

100023 

100024 

100025 

100026 

100027 

100028 

100029 

100030 

100031 

100032 

100033 

100034 

100035 

100036 

100037 

100038 

100039 

100040 

100041 

100042 

100043 

100044 

100045 

100046 

100047 

100048 

1Q0049 

100050 

100051 

100052 

100053 

100054 

100055 

100056 

100057 

100058 


FUNCTION XYZMAP ( JND.X. Y.NP.Z.NC. 1 DX . I DY , BX . BY , ANS ) 

C 

C FUNCTION XYZMAP HAS THE CAPABILITY OF SUBROUTINES MAPRDY + LAGIN2. 

C ANSWER IS ALSO AVAILABLE AT LOCATION (ANSI. 

C ALSO CAPABLE OF HANDLING MAP THAT HAS Z-LINES CROSSING EACH OTHER. 
C 

C X = ABS I SS A . Y = 0RD1NATE. Z = THIRD PARAMETER. 

C 

C IND = 0. Z=F(X,Y>, < EQUIVALENT TO SUBROUTINE MAPRDY). 

'C IND = 1. Y = F( X, Z 1 . (EQUIVALENT TO SUBROUTINE MAF’RDY 1 . 

C. IND = -1. Y=F( X 1 ONLY. (EQUIVALENT TO LAGIN2), THEN Z.NC.IDY, AND AY 
C ARE DUMMY VARIABLES THAT ARE NOT NEEDED IN ACTUAL INTERPOLATION. 

C 

c XS MUST be STORED IN ASCENDING ORDER FOR EACH Z. SIMILARLY, 

C SMALLEST Z BE FED IN AS Z(l>. ZS ARE IN ASCENDING ORDER. 

C XS NEED NOT BE THE SAME VALUES FOR VARIOUS ZS. 

C X , Y AND Z ARE TO BE DIMENSIONED IN THE MAIN (OR CALLING) PROGRAM, 

C THEY MUST BE DIMENSIONED NOT LESS THAN «<.<• XCNPoNC). Y(NP»NC) AND 

C ZINC) «•» NOTE NC MAY NOT BE' GREATER THAN 20 

C 

C NP=NUMBER OF POINTS PER CURVE (OR NUMBER OF X,Y PAIRS FOR EACH Z), 

C NC=NUMBER OF CURVES (OR NUMBER OF ZS), 1 TO A MAXIMUM OF 20 

C 

C IDX=PO!NTS USED for INTERPOLATION IN X-DIRECTION, 

C IDY=POINTS USED FOR INTERPOLATION IN Y-OIRECTION (IND*D)> 

C OR IN 2 — D I RECTI ON ( IND=1) . 

C I DX OR 1DY CAN EITHER BE 2 OR 3 ONLY. 

C BXsFIRST INDEPENDENT VARIABLE. 

C BYsSECONO INDEPENDENT VARIABLE. (WHEN IND=0 OR 1 ONLY). 

C BY*Y INDEPENDENT VARIABLE, WHEN ( I ND= 0 > . . 

C BY=Z INDEPENDENT VARIABLE. WHEN (IND*1>. 

C ANS=DEPENDENT VARIABLE Z(X«AX,Y*AY>, when IND=0.' 

C ANS=DEPENDENT VARIABLE Y« X*AX, Z»AY ) , WHEN IND*1, 

C ANS=OEPENDENT VARIABLE Y(X*AX), WHEN IND“-1. 

C 

C NO PRINT OUT. IF DATA OFF THE RANGE OF MAP OR CURVE. 

C THEN. USE 2-POINT INTERPOLATIONS AUTOMATICALLY, 

c 

c til 

C XS. YS, AND ZS ARE READ IN IN MAIN PROGRAM RECOMMENDED AS FOLLOWS. 
C4100 FORMAT (8110) 

C4101 FORMAT ( 8F1Q » Q ) • •••* 

C •••••••••« FOR IN0*0 OR 1 

C4101 READ (5.4100) NP.NC ••••• 

C DO 100 N*1,NC #*••• 

C READ (5.4101) Z(N) •#•*• 

C ME=N»NP *•••• 

C MS=ME-NP+1 

C 100 READ (5.4101) <X(M),Y(M).M«MS.ME> • *«•* 

C FOR 

C READ (5.4100) NP *•••»••••• 

C READ (5.4101) <X(M),Y(M).M=1,NP) •••«••#•*» 

C 

C 

01 MENS I ON X(2),Y(3),Z(2).ZZ(2D).ZX(20) 

JS = 1 

IF UNO) 105,106.103 
103 DO 104 ! *1 , NC 
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0G0G59 

104 

ZX( 1 ) = Z < ! > 

ooooro 


GO TO 141 

000061 

105 

JE : 1 

000062 


GO TO 108 

000063 

106 

DO 107 1=1, NC 

000064 

107 

ZZ( 1 >=7! I ) 

000065 


JE = NC 

000066 


NCR0SS=0 

0 C 0 0 6 7 

108 

DO 126 J = JS< JE 

000068 


JX2 = ( J-l )»NP 

000069 


DO 109 1=1. NP 

000070 


J2= I + JX2 

000071 


IF <8X-X(J2>> 114,110,109 

000072 

109 

CONTINUE 

000073 


GO TO 119 ' 

000074 

110 

ANS=Y ( J2 ) 

000075 


GO TO 123 

000076 

114 

IF( 1-IOX>120,120.119 

000077 

119 

JX2=J2-IDX 

000078 

120 

IS= JX2+1 

000079 


IE=JX2+I0X 

000080 


IF< IDX.GT.2) GO TO 122 

000081 

121 

ANS=< Y( I E > • C BX-X! I S ) ! - Y < I S ) • ( RX-X t I E ) ) > / < X ( I E ) 

000082 


GO TO 123 

000083 

122 

IM=IS+1 

000084 


G1 = <BX-X( isn/(x< JM)-X< IE>> 

000065 


G2=<BX-X( IM> )/<X( I£)-X( IS) ) 

000066 


G3= ( BX -X ( IE> )/CX< I S ) -X ( I M 7 ) 

000087 


ANS=-Y< IS)»G2«G3-G1»( Y( IM)«C3+Y( IE>»G2) 

000088 

123 

IF ( I NO 1 158.125,124 

000089 

124 

ZZ< J)=ANS 

0 0 C 0 9 0 


GO TO 126 

000091 

125 

ZX( J)=AMS 

000092 


IFIANS.LT. ZX(1>) ncross=i 

000093 

126 

continue 

000094 


I F C IND.NE.O) GO TO 1151 

0 0 0 0 9 5 


I F < NCR0SS . EQ « 0 ) GO TO 141 

000096 

C 


000097 


DO 130 K = 2 < NC 

000098 


JMI N=K-1 

0C0099 


DO 129 I P = K > NC 

000100 


IF (ZX< IF)-ZX< JMIN) ) 128. 128, 129 

000101 

128 

JMIN= IP 

000102 

129 

CONTINUE 

000103 


IK=K-1 

000104 


C1=ZX( JMIN) 

000105 


Z1=ZZ( JMIN) 

000106 


ZX( JMIN)=ZX( IK) 

000107 


ZZ( JMIN)=ZZ< IK) 

000108 


ZX< IK ) =Cl 

000109 

130 

ZZ< I K ) = Z 1 

000110 

C 


000111 

141 

ICPY= IDY-1 

000112 


00 142 1=1, NC 

000113 


IFIBY-ZXI I ) >145.144,142 

000114 

142 

continue 

000115 


JS=NC- ICPY 

000116 


GO TO 147 

000117 

144 

JS=I 

000118 


IF ( IND.EQ.O) GO TO 151 
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000119 

000120 

000121 

000122 

000123 

000124 

000125 

000126 

000127 

000128 

000129 

000130 

000131 

000132 

000133 

000134 

000135 

000136 

000137 

000138 

000139 


JE = JS 
GO TO 108 

145 1 F < 1 ,LE. IDY) GO TO 147 

146 JS=I-ICPY 

147 JE= JS+ICPY 

IF <IND> 108,1152,108 

C Y = F ( X « Z ) OR Z a F( X, Y ) CALCULATION DEPENDING ON I ND a Q OR 1. 

151 ANS a ZZ(JS> 

GO TO 158 

1151 IF(JE.EO.JS) GO TO 151 

1152 !F< IDY.GT.2) GO TO 153 

152 ANS=CZZ< JE)*(BY-ZX< JS> >-ZZ< JS>«OY-ZXC JE) ) >/< ZX< JE>-ZX( JS> > 
GO TO 158 

153 JM=JS+1 

G1=CBY-ZX< JS) >/(ZX< JM)-ZX< JE ) ) 

G2=(BY-ZX( JM) )/(ZX( JE>'ZX( JS) ) 

G3=<BY-ZX< JE) )/(ZX< JS)-ZX( JM) ) 

ANS=-ZZ< JS)»G2*G3.G1«(ZZ< JM)«G3+ZZ<JE)»G2) 

158 XYZMAP=ANS 
RETURN 
END 
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